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Chegou 
o Cobra 210. 


Compare seu micro com ele 
e veja o que você está perdendo. 


Já está no mercado o Cobra 210, o micro da 
Cobra. 

Mais bonito e mais avançado do que os outros 
micros de uso profissional que você conhece. 

Se é mais bonito no desenho, o Cobra 210 é mais 
avançado na tecnologia. Fruto de experiência de 7 
anos da Cobra na área de microcomputadores, o 
Cobra 210 incorpora características inovadoras que 
fazem dele um equipamento de fácil utilização, 
grande flexibilidade e aplicabilidade. 

Podendo trabalhar com três sistemas operacio- 
nais - SOM, SPM e MUMPS -, o Cobra 210 éum 
micro voltado para aplicações profissionais em pe- 
quenas e médias empresas, processamento distri- 
buído e setorial em grandes organizações, entrada e 
comunicação de dados, automação de escritórios e 

rocessamento científico. 

Tada a marte eletrânica da Cahra 210 está con- 
tida numa única placa. Esta mesma filosofia de 
construção foi aplicada aos outros equipamentos da 
família Cobra 200: o TI 200, terminal inteligente as- 
síncrono e o TR 207 remoto síncrono. Esta padroni- 
zação, além de diminuir os custos de t2 10) 002/0210 Bl (cm 
duzindo assim o preço final para o usuário —, tam- 
bém permite que um terminal da linha possa ser fa- 
cilmente transformado num micro. 

Compatível com o Cobra 305, o Cobra 210 já 
chega com uma grande e variada biblioteca de soft- 
ware. 

Compatível com toda a família Cobra, o 210 é 
uma excelente porta de entrada para a mais comple- 
ta linha de equipamentos e sistemas disponíveis no 
mercado. 

Contate a filial da Cobra mais próxima de você 
para conhecer o Cobra 210 de perto. 

Depois, faça você mesmo as comparações. 


mms Cobra 210 
O Micro da Cobra. 












Rio de Janeiro, RJ — (021) 265-7552 — São Paulo, SP-(011)826-8555 
Porto Alegre, RS — (0512) 32-7111 — Florianópolis, SC-—(048) 222-0588 
Brasília, DF — (061) 273-1060 — Salvador, BA — (071) 241-5355 
Curitiba,PR — (041) 234-0295 — Belo Horizonte, MG — (031) 225-4955 
Recife, PE — (081) 222-0311 — Fortaleza, CE — (085) 224-3255 









Vamos colocar todos 
Os pingos nos bits. 
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Quem usa computador para controles e disto & 
empresariais, organização de assuntos pessoais, 
trabalhos escolares ou simplesmente para se divertir, 
sempre quer respostas exatas. 
E por saber muito bem disso, a VERBATIM é a 
empresa que mais investe em pesquisa e 
desenvolvimento de produtos para alcançar e manter sua 
posição de liderança em qualidade de mídia magnética flexível - 
e garantir as respostas exatas que você espera. 
A VERBATIM já trouxe para o Brasil o resultado de todos esses 


anos de trabalho. Sua fábrica brasileira está produzindo os disquetes o 
de 5 1/4 e de 8 polegadas, os mesmos que lideram as vendas no 
mundo inteiro. a: er d | 


E se prepara para lançar suas fitas magnéticas que vão trazer 
um novo padrão de qualidade, bem acima das normas tradicionais. Maior fabricante mundial de disquete 
Fone: (011) 853.1209 - SP 


Datalife tem respc sara tudo. 


Produzido na Zona Franca de Manaus. 
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Sysdata 


Você só descobre o quanto precisa de um Micro-Com- Microcomputador pessoal 
putador JR da Sysdata depois que o conhece de perto. 

Você vai ter certeza de que fez um ótimo negócio ao 
adquirí-lo assim que o colocar na sua empresa ou na sua 
casa. 

O JR da Sysdata é rápido, é versátil, é compacto. 
APLICAÇÕES: 

Contabilidade, controle de contas a pagar, controle de 
contas a receber, folha de pagamento, controle de esto- 
que, controle de clientes, relatório de clientes, mala direta, 
cálculos de orçamentos financeiros,controle de processos 
industriais, cálculos de engenharia, cálculos de estatísti- 
cas, funções matemáticas, funções lógicas em cadeia de 
caracteres (STRINGS), gráficos, jogos animados, progra- 
mas educacionais. 

O JR PERMITE AINDA: 

O acesso a grandes sistemas de computação, a comuni- 
cação entre os departamentos de Empresa, efetuar pro- 
gramas específicos para cada Empresa. 

E, como se não bastasse, ele é o Micro-Computador de 
menor preço do mercado. 

Com todas as qualidades que tem, o JR da Sysdata nem 
precisava ser tão econômico. Mas é. 

Afinal, ele é o mais completo Micro-Computador de sua 


geração. q | 
Inclusive no preço. Sysdala ade Po Epá A 
Você pode testar estas e outras qualidades do JR em EE LERES; 8 CEO NR 
qualquer dos nossos revendedores. 











REVENDEDORES: SÃO PAULO/Capital - Ad Data 864.8200; ADP System 227.6100; Búcker 881.7995; Cinótica 36.6961; Compumarketing 212.9004; Compute 852.8533; Com- 
puterland 231.3277; Foto Léo 35.7131; Fotótica 853.0448; Guedes 289.9051: Horst 203.5597: Interface 852.5603; Lema 210.5929; Microrei 881.0022; Miprotec 289.4941; Nova Gera- 
ção 814.3663; O.P.A. 35.8685; Plandata 275.0181; Plantel 543.9653; Sacco 814.0598: Servimec 222.1511; Sistenac 282.6609; S.0.S. 66.7656; Runner's 469.0887; Campinas 
Computer House 852.5855; Computique 32.6322; Microtok 32.4445; Rio Claro - Coml. Micro Cosmos 34.5801; Ribeirão Preto - Compusys 635.1195 - Araras - Copec 41.3779; 
Taubaté - Ensicon 33.2252; Mogi Guaçu - Guaçumag 261.0236; Bragança Paulista - Infordata 543.5198; Bauru; Marília - Sipro 33.4109; Catanduva - Teledalto 22.8119; RIO 
DE JANEIRO /Capital - Clap 228.0734; Computique 267.1093; G D M Informática 284.8744; JR de Góes 246.4180: Kristian 391.3165; Suprimento 274.8845; Petrópolis - Foto Oti- 
ca 42.1391: MINAS GERAIS/Belo Horizonte - Compucity 226.6336; Computec 225.2617; Kemitron 225.0644: Minas Digital 337.7946; Poços de Caldas - Computique 721.5810; 
RIO GRANDE DO SUL/Porto Alegre - Advancing 26.1194; Aplitec 24.0465; Digital 24.1411; Microsis 22.9782; Pelotas - Sistematika 22.3810; Novo Hamburgo - Micromega 
93.4721: PARANÁ/Curitiba - Computique 243.1731; Micro System 232.3533; Morgen 232.0593: Ponta Grossa - Grupo Data Memory 24.6191; Londrina - Shop Computer 
23.9674: GOIÁS /Goiânia - Casa do Microcomputador 223.1165; Grupom 225.8226; SANTA CATARINA Florianópolis - Castro 22.6933; Infotec 23.4777; BRASÍLIA /Distrito 
Federal - Compushow 273.2128; Digitec 225.4534; MATO GROSSO DO SUL/Campo Grande - DRL 382.6487; Video 321.4220; CEARÁ/Fortaleza - Siscompy 244.4691; 
PARAÍBA / João Pessoa - Medusa 221.6743; PERNAMBUCO /Recife - Elogica 241.1388. 
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SÉRIE RACIMEC 1800 





Telsist 1802 e 1802D: 
Microcomputadores de baixo 
custo, que crescem de acordo 
com as necessidades de 
processamento pessoal, 
profissional ou da Empresa. 

Discos flexíveis,disco rígido, 
periféricos e comunicações 
(inclusive emulando 3270's, 
2780 e 3780). 

Quando chegar o momento 
de expandir para um ambiente 
multiusuário, as mesmas 
unidades, sem quaisquer 
modificações, passarão a ser 
usadas como estações de 
trabalho satélites dos 
concentradores 1806. 

Produtos com a qualidade 
e o suporte da RACIMEC. Alto 
desempenho a baixo custo. 
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uito se tem falado, ultima- 
mente, sobre automação. Vá- 
rios eventos — feiras, seminá- 
rios e simpósios — ocorreram 
durante os dois meses passa- 
dos, principalmente em São Paulo e neles foi 
promovido um amplo debate sobre o tema. 
Com isto, o espaço dedicado à automação nos 
jornais e revistas foi grande, e esta “badala- 
ção” é importante no sentido de fornecer con- 
dições para que a discussão torne-se ainda 
mais abrangente. 

Dadas as consequências imediatas e irrever- 
síveis da automação na estrutura sócio-econô- 
mica, notadamente nos níveis de emprego e 
produtividade, é imprescindível que a introdu- 
ção deste processo em um contexto econômico 
como o dos países do Terceiro Mundo seja fei- 
ta de maneira consciente. 


e Na esfera industrial, a automação tem 
causado bastante polémica. Os avanços da ro- 
bótica são inconstestáveis e hoje, nos países 
desenvolvidos, discute-se esta evolução, pos- 
to que, inicialmente pensados para executar 
tarefas insalubres, perigosas e repetitivas, 
atualmente os robôs já são projetados visando 
os aspectos da inteligência simulada: flexibi- 
lidade (capacidade de realizar tarefas diversas) 
e precisão, o que definitivamente muda o 
conceito de uso. 


No Brasil, as mudanças têm ocorrido rapi- 
damente. No setor comercial, diversas organi- 
zações de comércio varejista começam a auto- 
matizar seus pontos de venda, experimentan- 
do com isto modificações em suas rotinas de 
trabalho. Os terminais de transferência de fun- 
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dos, introduzidos pelos bancos em algumas 
grandes lojas, fazem parte do novo conceito 
de “dinheiro eletrônico”, que permitirá aos 
lojistas maior segurança para agenciar o crédi- 
to e, alardeava a manchete de um jornal, pro- 
moverá “o fim do cheque voador”. Além de- 
les, computadores: terminais de caixa inteli- 
gentes e a identificação dos produtos pelo có- 
digo de barras (sobre Código de Barras, ver 
MS nº 24, página 70) são alguns dos recursos 
que promo verão, nas lojas, um aumento de 
eficiência em suas operações internas de for- 
necimento de informação e controle dos esto- 
ques e das vendas. 


Os bancos também tém investido pesada- 
mente em automação, e esta tornou-se, inclu- 
sive, o mais envolvente apelo de marketing 
lançado pelas instituições financeiras, passan- 
do a “significar” os aspectos de inovação, cre- 
dibilidade e rapidez procurados pelos clientes. 


Na área de automação de escritório, muito 
se tem falado em seminários e cursos — alguns 
caríssimos — e pouco feito de forma efetiva. 
Isto porque o conceito de escritório automati- 
zado ainda é algo indefinido até na sociedade 
norte-americana, que não se cansa de questio- 
nar o que é e a forma como deve ser introdu- 
zido. A imagem folclórica do “escritório do 
futuro”, com a “abolição do lápis e papel”, 
além de ser perigosa, pois não espelha a reali- 
dade, só é possível de ser “ensaiada” nas gran- 
des corporações que puderem investir maciça- 
mente num sistema integrado. 


Nas médias e pequenas empresas brasilei- 
ras, talvez o “office automation”” fique, por 
enquanto, por conta de um processador de 
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texto; um terminalzinho de videotexto e olhe 
lá. As atividades prioritárias e mais intensas da 
empresa deverão ser automatizadas em pri- 
meiro lugar, mas ainda vão conviver durante 
um bom tempo com setores que permanecem 
em suas formas tradicionais de trabalho, de- 
vendo o novo e o antigo se integrar de modo 
não traumático. 


O importante, contudo, é constatar que 
diversos setores profissionais têm debatido 
como harmonizar a automação, indispensável 
para que a atividade econômica evolua em efi- 
ciência e ganhe em potencial competitivo e 
decréscimo de custos, com nossa condição, 
característica de nação em desenvolvimento, 
de não poder abortar nossos métodos tradicio- 
nais de produção de forma abrupta, em favor 
de receitas externas e em detrimento do nível 
de emprego e da tranqliilidade interna. 


Meda Aa pr” 





e Nesta edição, publicamos a última lição 
de nosso Curso de Assembler Z-80. Foram vá- 
rios meses de convivência, e gostaria de agra- 
decer e ressaltar o senso profissional do pro- 
fessor Amaury Moraes Júnior, que continuará 
presente com seus artigos em MS. 
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UNO O NET DIO) PA 
IMPRESSORA 
DIGNO | VN CIANE 
KODAK 
O) VNIVA TE: 


À avançada tecnologia do raio laser para 
converter os dados de saída de computador 
em imagens prontas para uso. 


As Processadoras/impressoras de Microimagens Kodak KOMSTAR são verdadeiros 
periféricos de computador, que oferecem notáveis melhoramentos nas operações de 
saída de dados, ao mesmo tempo em que reduzem os custos operacionais. 
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Permitem ainda a obtenção de títulos em vários tamanhos, microfichas com índice 
em diversos formatos. Tudo com rapidez e perfeição, sempre. Mas além dessas, existem 
outras vantagens que você precisa conhecer. 


Não espere mais tempo. Envie hoje mesmo o cupom abaixo, solicitando o Guia 
Kodak para as Processadoras/Impressoras de Saída de Dados de Computador. 
Você verá, em detalhes, tudo o que as Processadoras/Impressoras Kodak KOMSTAR 
podem oferecer. 


Ão receber seu Guia, você estará abrindo as portas de sua empresa para a mais 
avançada tecnologia existente no mundo da informática. Uma tecnologia que tem a 
garantia de uma marca que você conhece e confia: Kodak. 


CUPOM DE RESERVA GRÁTIS 


Sim, quero receber gratuitamente o Guia Kodak para as Processadoras/Impressoras de Saída de 
Dados de Computador. 


PODIDO DOADO OOOODONOIODO CEDO DODODODOODONELACO LELLO CLEO A OUOCACOOCA DAL ODU CALOR ULCB COS LUNC A COLO UOOLDOLOOLANALDCCCLONOLONL O OOCODUDLCCLUOLEDOCCUOOO VOC ODUPOODOLCLOLUAULUC LLC OA 


Departamento de Sistemas Micrográficos 
KODAK BRASILEIRA COMÉRCIO E INDÚSTRIA LTDA. 
Rua George Eastman, 213 e 05690 e Tel.: (011) 542-01 e São Paulo e SP 
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O sorteado deste mês, que receberá uma as- 
sinatura de um ano de MICRO SISTEMAS, 
6 José de Lima H. Neto, de São Paulo. 


1-7000 DA ITAUTEC 


Oi pessoal. Sou um leitor que gosta mui- 
to dessa revista e quando tenho uma dúvida 
vou logo consultar a minha MICRO SISTE- 
MAS para resolver o meu problema. A mi- 
nha pergunta agora é a seguinte: estou co- 
meçando a trabalhar com o microcomputa- 
dor |-7000 Júnior, da Itautec, e queria saber 
sa me linha este equipamento é compatí- 
vel (...). 

Ricardo Negrão de Oliveira 
Taguatinga — DF 


Primeiro, Ricardo, a equipe manda um 
abraço prá você. É muito gostoso receber 
uma carta simpática como a sua: obrigada e 
escreva sempre, certo? Bom, mas com rela- 
ção à sua pergunta sobre o |-7000, da Itautec, 
ninguém melhor que o próprio fabricante 
para responder à sua dúvida: 

“A Itautec investe grande parte do seu 
esforço em pesquisas na área de Informática. 
Como resultado destes investimentos, surgi- 
ram diversos produtos nesta área. A tecnolo- 
gia tanto a nível de hardware como software, 
pertence a Itautec, portanto, segue uma li- 
nha própria. | 

A Itautec lançou uma família de micro- 
computadores que procura atingir as diver- 
sas faixas de usuários existentes no mercado. 
Esta família é composta, basicamente, de 
três modelos: 

1. JUNIOR — Voltado ao uso pessoal e aos 
profissionais liberais; 

2. JUNIOR-E — Dirigido às empresas de pe- 
queno e médio porte; 

3. |-7000 — Específico para empresas com 
volume maior de processamento e com po- 
tencial de utilização das diversas configura- 
ções possíveis. 

Os modelos são, em termos de hardware 
e software, idênticos. A diferença esta na 
maior ou menor possibilidade de expansão. 
Existe, inclusive, a possibilidade de evolu- 

dentro da família, isto é: pode-se passar 
do JUNIOR para o JUNIOR-E, e deste para 
o 1-7000, havendo uma total compatibilida- 
de entre o sistema operacional (SIM/M) e o 
software disponível. 

O SIM/M é compatível com a versão 
CP/M 2.2. Esta opção deve-se ao fato deste 
sistema ser bastante difundido e com altíssi- 
mo número de software disponível no mer- 
cado. Além das facilidades padrão oferecidas 
pelo CP/M 2.2, o SIM/M incorporou um 
conjunto extra de opções que aproveitam ao 
máximo o hardware da família de micro- 
computadores, e que permite, entre outras 
coisas, a interação com computadores de 
grande porte (...).” 

Helton Figueiredo de Oliveira 
Gerente de Produto — micro computadores 
da Itautec 


Faço parte do grupo de privilegiados, is- 
to é, sou assinante de MS. O motivo desta, 
entretanto, é consultá-los sobre o programa 
RENUM, publicado em MS nº 20, de maio 


de 83, pág. 70, pois apesar das correções in- 
seridas nos números posteriores de MS, o 
programa não funciona no meu CP-500. 
Minhas dúvidas são: 

1º) Os endereços das tabelas (SA) e as ro- 
tinas da ROM são compatíveis com o TRS- 
80 modelo ll? 

20) A instrução LD IX, TABAUX (linha 
1740) é de quatro bytes, no caso DD21 
FOFF. Mas vocês publicaram a correção 
no formato DDFOFF. Está correto? 

30) Se TABAUX armazena números das 
linhas antes da renumeração, 16 bytes são 
suficientes para isso, já que TABAUX EQU 
= FFFO. 

Pode ser que o problema esteja na tercei- 
ra hipótese que apresentei, pois o RENUM, 
no meu caso, renumera todas as linhas mas 
não renumera GOTO, GOSUB, ON A... 
dando erro 5 (linha inexistente). Help. 
Heleno F. Araújo 
Belém — PA 


Como de hábito, mandamos sua carta pa- 
ra o José Ribeiro Pena Neto, autor do pro- 
grama “Renumere seus programas em BA- 
SIC”. Eis a resposta: 

“Recebi da redação de MICRO SISTE- 
MAS uma cópia da carta em que você expõe 
suas dúvidas sobre o programa RENUM. A 
propósito, devo lhe informar que: 

1 — Os endereços de rotinas da ROM e tabe- 
las da RAM utilizados no programa parecem- 
me os mesmos do modelo Ill. O programa já 
foi testado em um Naja e funcionou. 

2 — Quanto a linha 1740, você está certo. A 
forma correta é DD21FOFF. 

3 — A função de TABAUX no programa é 
armazenar provisoriamente o número da li- 
nha em ASCII, antes de converter em biná- 
rio (linha 2090). Você deve ter confundido 
com TABELA. 

Talvez o seu programa não esteja funcio- 
nando por causa de uma última correção 
que não foi publicada na revista: na linha 
2090, a instrução é CD5SA1E, e não como 
foi publicado.” 

José Ribeiro Pena Neto 
Belo Horizonte — MG 


JORNADA NO APPLE 


Muito me interessou o divertido progra- 
ma “Jornada nas estrelas”, veiculado em Ml- 
CRO SISTEMAS nº 25 (edição de outubro 
de 83), de autoria do Dr. Kazimierz Mala- 
chowski. Para ser mais preciso, tal programa 
"deve" ser divertido, pois após a digitação 
do mesmo, a nave estrelar Enterprise não 
saiu do lugar! Troca de olhares, entre eu e o 
meu filho, realmente constrangedores, pois 
ele já estava à postos na ponte de comando, 
empunhando sua pistola /aser e tudo mais! 

Para melhor informação, meu equipa- 
mento é um Apple Il, que utiliza a lingua- 
gem Applesoft, com a qual, infelizmente, 
não tenho a intimidade necessária. Devido 
ao exposto, solicito que, se possível, efetuas- 
sem uma consulta ao Departamento Técnico 
de MS o qual, acredito eu, poderia solucio- 
nar os problemas relativos às diferenças en- 
tre as duas linguagens, apesar de estar ciente 
de que o autor recomenda rodar o programa 
em equipamentos da linha Sinclair. 

Por mim, continuaria com as tentativas 
de solucionar o problema surgido se não fos- 
se o ansioso olhar de meu garoto, que diaria- 
mente aguarda-me à porta de casa com a pis- 
tola laser em punho, como a dizer-me: "— 
Quando partimos, Capitão Kirk?” 

Paulo A. Borges 
Rio de Janeiro — RJ 


Realmente, o programa “Jornada nas es- 
trelas” foi desenvolvido para equipamentos 
da lógica Sinclair. Tentar adaptar o progra- 
ma publicado para a linha Apple resultaria 
em maior esforço do que o necessário para 
desenvolver um “Jornada nas estrelas” espe- 
cialmente, ou melhor, diretamente no Apple. 

Por uma questão de decisão editorial, 
nós não fazemos conversão de sistemas. Mas 
aproveitamos este espaço para pedir aos lei- 
tores que nos mandem colaborações para os 
equipamentos compatíveis com o Apple e, 
muito em especial, um “Jornada nas estre- 
las” para que o nosso amigo Paulo não seja 
mais interpelado pelo seu filho e que os dois 
possam voar pela galáxia na Enterprise. 


/ ESCLARECENDO DÚVIDAS / 


Tenho uma série de dúvidas sobre o TK 
2000 Color: em primeiro lugar, aonde foram 
parar os 64 K de RAM anunciados, se no 
próprio manual de operação do computador 
há um mapa de memória onde a ROM está 
incluída neste 64 K? 

Outro problema é o manual técnico (fer- 
ramenta indispensável para um estudo apro- 
fundado do computador, tanto em hardware 
como em programação Assembler): este ma- 
nual existe ou será somente uma promessa 
que não será cumprida (como no caso do ge- 
rador de som para o TK-85)? 

Por último, gostaria também de saber 
qual a real compatibilidade do TK2000 com 
o Apple? Qual a diferença entre os circuitos 
eletrônicos e as diferenças do programa resi- 
dente na ROM? 

Reconheço que o equipamento, por ser 
um lançamento, deva enfrentar certos pro- 
bleminhas, e é por isso que escrevo, na ten- 
tativa de resolver as principais dúvidas dos 
novos usuários: 

— 64 K de RAM com ROM incluída? 

— Compatibilidade de hardware/software 
com o Apple? 

— Manual técnico quando? 

Fernando S. Osório 

Porto Alegre — RS 


Remetemos suas dúvidas para a Microdi- 
gital, e esta nos enviou a seguinte resposta: 

“Realmente, o mapeamento está certo, 
pois a ROM está incluída nos 64 K de RAM, 
mas é possível desfrutar os 64 K de RAM 
usando-se a linguagem Assembler, o que está 
explicado no manual do TK2000 Color que 
está sendo enviado aos usuários desde a se- 
gunda quinzena de junho. 

A compatibilidade do TK2000 Color 
com o apple só existe em Applesoft BASIC, 
isto é, todos os programas em BASIC do 
Apple rodam no TK2000 e vice-versa. A di- 
ferença básica dos programas residentes na 
ROM é o endereçamento.” 

Ricardo Tondowski 
Assessor da Diretoria da Microdigital 


MS AGRADECE 


(...) Baseado nas informações obtidas 
através de MICRO SISTEMAS, já comprei o 
micro AS-1000. Recebi exatamente o que 
eu queria receber: endereços, dados técnicos 
etc. Fui ao Rio de Janeiro, na Engebrás (fa- 
bricante do AS-1000) e acabei comprando o 
equipamento (...). Agradeço, mas agradeço 
mesmo. Muito, muito. Continuem assim. Es- 
se é um papel bonito de imprensa. 

Antonio Carlos Caiado Pereira 
São João Del Rei — MG 
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A título de colaboração, informo à Ml- 
CRO SISTEMAS que foi levado ao ar, aqui 
em Belo Horizonte, pela Rádio Universidade 
FM Stereo (106.1 MHz), da PUC, o primeiro 
programa de Informática no rádio. Trata-se 
do Micro-Show, que está sendo transmitido 
todos os domingos às 18 horas. O programa 
Micro-Show, que transmite software enviado 
pelos ouvintes, tem sido um sucesso. 

Marcio Gomes 
Belo Horizonte — MG 


PRESTAÇÃO DE SERVIÇOS 


Sendo leitor desta conceituada revista 
(na minha opinião, a melhor no gênero), ve- 
nho tentar a minha última esperança de re- 
solver o problema do meu CP-200, pois já 
considero um caso quase perdido: meu CP- 
200, que está fora da garantia, apresen- 
tou defeito. Fui ao Rio de Janeiro e o en- 
treguei a firma Clappy que prometeu con- 
sertá-lo em 15 dias, no máximo. Resultado: 
entreguei o computador na Clappy em 16/ 
12/83 e retirei-o em 21/03/84, sem que te- 
nha sido feito o mínimo possível no equipa- 
mento. Alegação: só estamos consertando 
computadores de maior porte (7). Me indi- 
caram a firma CSM, que prontamente rece- 
beu o aparelho e prometeu consertá-lo em 
10 dias. Resultado: receberam o micro em 
21/03/84 e eu fui buscá-lo no dia 31/05/84, 
também nas mesmas condições, isto é, sem 
solução. Aliás, havia apenas uma pequena 
diferença: faltava o Cl 74L5165, que afir- 
maram estar queimado. 

Solicito uma ajuda e que esta carta seja 
publicada para que talvez alguém se interes- 
se pelo problema, pois não tenho condição 
de ficar viajando sem solucionar nada. Afi- 
nal, já fazem seis meses que me enrolam: 
não sei se por incompetência da prestação 
de serviços aos usuários, ou da firma que 
não fiscaliza tais fatos. 

Jefferson de Oliveira e Silva 
Volta Redonda — RJ 


Como é nosso costume, Jefferson, man- 
damos a sua carta para a Clappy Computa- 
dores e Sistemas Ltda. e para a CSM — Co- 
mercial Sistemas Manutenção Ltda. Agora 
reproduzimos a resposta de ambas: 

“Revendo nossos registros, verificamos 
que o CP-200 do Sr. Jefferson de Oliveira e 
Silva, de série 4079, foi aceito para conserto 
em nossa empresa em 16/12/83 pela nota 
fiscal 1431, como equipamento fora da ga- 
rantia. 

Devido ao não recebimento dos compo- 
nentes eletrônicos da Prológica, necessários 
ao reparo, apesar de reiteradas solicitações 
ao fabricante, informamos ao cliente Jeffer- 
son em 10/02/84 que o seu equipamento 
não poderia ser reparado em nossa empresa. 
O cliente somente procedeu a retirada do 
aparelho em 21/03/84 pela nota fiscal 2497. 
Portanto, a partir desta data terminou nossa 
participação no caso, como aliás o próprio 
cliente relata em sus carta. 

A falta de componentes eletrônicos do 
CP-200 não só nos fez não aceitar novos 
reparos como também paralizarmos a sua co- 
mercialização. Lamentamos profundamente 
este fato, mas apesar de nossos esforços não 
obtivemos meios junto ao fabricante para o 
reparo do equipamento.” 

Roberto Grensell 
Coordenador da Área de Computadores da 
Clappy 

“Temos a esclarecer que recebemos o 
equipamento do Sr. Jefferson de Oliveira e 
Silva, nosso estimado cliente, com pesadas 
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avarias a ponto de ser necessário a troca de 
10 Cis da placa de circuitos impressos. Mes- 
mo assim não logrou bom funcionamento. 
É disciplinar em nosso laboratório efetuar 
um exaustivo teste de confiabilidade a cada 
troca de componente, o que é, via de regra, 
um teste demorado. A cada teste, o equipa- 
mento apresentava um novo defeito. Já tí- 
nhamos decidido efetuar a troca da placa 
quando o Sr. Jefferson resolveu retirar o 
aparelho, reconhecidamento pelo longo 
tempo decorrido. 

O Sr. Jefferson não nos procurou dire- 
tamente e preferiu apelar para esta coluna, 
julgando-se, presumivelmente, injustiçado. 


Ao recebermos a carta enviada por MICRO | 


SISTEMAS, entramos em contato com o 
Sr. Jefferson e prometemos trocar a placa 
do seu aparelho sem mais delonga e sem 
qualquer ônus extra. Assim, seu aparelho já 
se encontra pronto e à sua disposição.” 

J. A. Moura 

Diretor da CSM 


SUGESTÕES 


Muito apreciaria ver publicado em MS 
um trabalho sobre uma interface para a re- 
cepção de sinais CW (telegrafia), utilizável 
na linha Sinclair. 

Galba José C. de Albuquerque 
Caruaru — PE 


Me disseram que o Curso de BASIC de 
MS foi excelente, portanto, sugiro que o re- 
pitam, pois vários amigos meus (além de 
mim) não tiveram a felicidade de conhecer 
MICRO SISTEMAS desde o nº 1. 

Jorge Pablo Zapata Rivera 
Salvador — BA 


Gostaria de sugerir a publicação de um 
mapa da memória (ROM e RAM) — com ro- 
tinas e sub-rotinas, comandos etc. — dos 
equipamentos compatíveis com o TRS-80 
modelo Ill (e |), para facilitar a programa- 
ção em linguagem de máquina, pois os fabri- 
cantes não divulgam estes endereços. 

José Antonio Biazetti 
Jaú — SP 


Parece que vocês estão deixando de pu- 
blicar programas para a HP-41C/CV. Sugiro 
mais artigos, principalmente sobre hardware. 
Gostei muito da quantidade de programas 
para o Apple. 

Ana Claudia Izumi Fukuda 
Rio de Janeiro — RJ 


(...) Quero dar-lhes a seguinte sugestão: 
concurso entre os leitores de MICRO SISTE- 
MAS, dividindo-se estes por equipamentos: 
usuários da linha Sinclair; Apple e TRS-8O. 
Os usuários concorrentes teriam que apresen- 
tar uma colaboração enquadrada em um des- 
tes tipos: 1º) Jogos — 2º) Programa utilitá- 
rio — 3º) Programa aplicativo. Os senhores 
premiariam os três melhores programas para 
cada linha e tipo (para cada linha nove pes- 
soas premiadas: três de cada tipo de progra- 
ma). E depois vocês publicariam, em uma 
“Edição Especial”, os programas vencedores. 
José de Lima H. Neto 
Campinas — SP 


Envie suas sugestões pars MICRO SISTE- 
MAS. Elas serão anotadas em nossa pauta e 
procuraremos, na medida do possível, viabi- 
lizá-las. 


PROTECT — sistema para 

proteção de software, 

personalizado, com 

“segredo”, de baixo custo, que 
inserido no microcomputador 
impede o funcionamento de qualquer 
cópia que não contenha o PROTECT 
específico. 


ESCRITA — dispositivo pa- 


ra fazer o microcomputa- 

dor escrever em português. 

Permite acentuação gráfica, * XE 
til e cedilha. ç, 8, 6,6,8,ú, 

etc... 


CPM, LOGICOPY, 80 COLUNAS, 16 K, IN- 
TERFACE E BUFFER P/IMPRESSORA,... 


Cá LOGITEC 


LÓGICA E TECNOLOGIA DIGITAL LTDA, 
Praça Osvaldo Cruz nº 15 conj. 710. 
Tel.: (0512) 25-1677 - Porto Alegre - RS. 


MS É FEITA 
PARA VOCÊ 


PARTICIPE COM 
SUA OPINIÃO 


Escreva-nos di- 
zendo qual a sua 
área de interesse, 
conte-nos tam- 
bém as suas expe- 
riências com seu 
micro, o que 
você quer ver 
publicado em MS, o que você acha 
da sua MS, enfim, diga tudo que 
torne MICRO SISTEMAS ainda 
mais feita para você. 
E lembre-se: todo leitor que nos 
escreve concorre automaticamente 
a uma assinatura de um ano de 
nossa MICRO SISTEMAS. Mande 
logo sua opinião para Redação de 
MICRO SISTEMAS no Rio de 
Janeiro ou em São Paulo: Av. 
Presidente Wilson, 165/grupo 
1210 - Centro - CEP 20030 - 
Rio de Janeiro - RJ; Rua Oliveira 
Dias, 153 - Jardim Paulista - CEP 
01433 - São Paulo - SP. 











Uma descrição detalhada dos comandos PDRIVE e SYSTEM do NEWDOS/80 e ainda 
um exemplo de aplicação através de um programa para conversão em outros sistemas 








Dois importantes 
comandos do NEWDOS 


uase todos os iniciantes na 

microcomputação (e também 

vários profissionais da área) 

mantêm seus 'DOS” preferidos 
em permanente estado de imutabilidade. 
Isto decorre principalmente do receio de 
causar “danos” aos sistemas, pois sabe-se- 
lá as dificuldades em conseguir uma ou- 
tra cópia. A bem da verdade, a prática 
do backup não possui muitos entusias- 
tas aqui no Brasil. 

Muita gente boa tem ficado a mercê 
dos gênios criadores de sistemas que 
configuram suas maravilhas a fim de 
atender ao maior número de usuário/ 
máquinas. O resultado disso pode ser (e 
invariavelmente é) um sistema bastante 
genérico e que acaba não deixando 
transparecer as suas reais possibilidades. 

Para minimizar um pouco esta situa- 
ção, vamos abordar neste artigo dois co- 
mandos bastante interessantes do 
NEWDOS80: o comando SYSTEM e o 
comando PDRIVE. 

Com o PDRIVE, que é um poderoso 
formatador de saídas, o usuário poderá 
converter programas e arquivos entre o 
NEWDOS e o TRSDOS/DOS 500/ CI- 
RANDA, DOSPLUS, DIGDOS etc,, 
além de compatibilizar toda a sua biblio- 
teca com a de seus amigos, pois, com 
ele, discos do DGT-100 podem ser lidos 
pelo CP-500 e vice-versa. 

O comando SYSTEM, por outro la- 
do, permite que oNEWDOS seja reconfi- 
gurado com a modificação de vários pa- 
râmetros, tais como: cursor (tanto cará- 
ter quanto condição de intermitência ou 
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PDRIVE,O 


TI=A, TD=E, TC=40,SPT=18,TSR=3,GPL=2,DDSL=17,DDGA=2 
TI=A, TD=E, TC=40,SPT=18,TSR=3,6GPL=2,DDSL=17,DDGA=2 
TI=A, TD=E, TC=40,SPT=18,TSR=3,GPL=2,DDSL=17,DDGA=2 
TI=A, TD=E, TC=40,SPT=18, TSR=3,6GPL=2,DDSL=17,DDGA=2 


ONA SUR 


| 


Figura 1 


TI=AM, TD=E, TC=40,SPT=10,TSR=3,6PL=2,DDSL=17,DDGA=2 
TI=A, TD=A, TC=40, SPT=10, TSR=3,6PL=2,DDSL=17,DDGA=2 
TI=AK, TD=E, TC=35,SPT=18,TSR=2,GPL=2,DDSL=17,DDGA=2 
TI=A, TD=C, TC=80,SPT=20, TSR=2,6GPL=2,DDSL=17,DDGA=2 
TI=D, TD=C, TC=80,SPT=20, TSR=3,GPL=2,DDSL=17,DDGA=2 
TI=A, TD=6G, TC=80, SPT=36, TSR=2,6GPL=8,DDSL=17,DDGA=2 





PORIVEL, senha: Idní,Cdn2l=dn3IIC,TIi=caracIl, TD=caracIl, TC=valor] 
L,SPT=valorIL,TSR=valorIC,GPL=valorIL,DDSL=valorl 


CDDGá=valorIL,AI 





Figura 2 


velocidade de REPEAT), cheque de se- 
nhas de acesso ou códigos especiais, veri- 
ficações e testes de leitura/gravação, 
formatação diferenciada etc. 

Há muita coisa a ser feita, ou pelo 
menos tentada, quando se dispõe de 
algum tempo e disposição. Uma boa 
medida inicial é providenciar um disco 
(devidamente duplicado) e tentar partir 
para a experimentação. 


1 — O COMANDO PDRIVE 


O sistema NEWDOS possui 10 
opções de configuração de drives, ou 
seja, 10 PDRIVES. Cada opção está 
associada às características físicas dos 


drives implementados no equipamento. 
Como só podem ser usados no máximo 
quatro drives, sobram ainda seis configu- 
rações à disposição do usuário que pode, 
através deles, simular qualquer tipo de 
equipamento. 

Para saber como o sistema está orga- 
nizado, basta entrar com o comando 
PDRIVE, 0. Isso produzirá uma listagem 
dos parâmetros dos 10 comandos 
PDRIVE e seus respectivos conteúdos, 
bem como a demarcação dos drives em 
uso pelo sistema (essa distinção é feita 
com um asterístico ao lado do número 
do drivre). Veja a figura 1, a qual mostra 
um sistema genérico com dois drives. A 
sintaxe geral do comando é mostrada na 
figura 2. 
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OS PARÂMETROS DO PDRIVE 


Cada PDRIVE possui nove parâme- 
tros que se relacionam com a configura- 
ção hard e soft dos discos. Eles podem 
ser alterados individualmente, e a sua 
manipulação é que permite a simulação 
de diversos sistemas. As especificações 
dnl, dn2 e dn3 estão relacionadas aos 
drives que receberão as modificações. 
Vejamos cada um deles. 

e TI =caráter 

Este parâmetro está relacionado com 
o tipo de interface que integra o sistema, 
podendo, portanto, ser representado por 
mais de um caráter. Os tipos possíveis são: 


A — corresponde à interface standard; 

B — especifica interface OMIKRON; 

C — especifica interface PERCOM; 

D — especifica interface APPARAT; 

E — especifica interface LNW; 

H — apenas para leitura de discos de 8”, 
onde deve haver mudança de velocidade 
na leitura entre os drives; 

I — determina como 1 a numeração do 
primeiro setor de cada trilha (essa é uma 
característica do TRSDOS); 

J — determina como 1 a numeração da 
primeira trilha do disco; 

K — Identifica o disco onde a trilha O 
está formatada de modo diferente das 
demais; 

L — permite que os drives de 80 trilhas 
(dupla face) leiam discos formatados 
com 40 ou 35 trilhas; a cabeça de leitura 
avança duas trilhas de cada vez; 

M — identifica o disco standard do 
TRSDOS. 


e TD=caráter 

Este parâmetro especifica o tipo de 
disco que está sendo usado no drive, 
segundo a tabela que está na figura 3. 
e TC=valor 

Especifica a quantidade de trilhas 
que o disco possui. Se o parâmetro TI 
possuirra opção K, isso significa que, para 
40 trilhas, TC deve ser igual a 40; caso 
contrário, para 40 trilhas TC deve ser 
igual a 39. 
e SPT=valor 

Determina a quantidade de setores 
por trilha do disco. 
e TRS=valor 

Quantifica o avanço da cabeça de lei- 
tura do drive segundo as opções: 
O —-Sm/s 
| —- 10 m/s 
2 —-20m/s 
3- 40 m/s 
e GPL=valor 

Quantidade de grânulos por LUMP 
na organização do disco. Esse valor pode 
variar de 2 a 8,e fora do NEWDOS pode 
ser interpretado como grânulos por 
trilha. 
e DDSL=valor 

Número do LUMP (ou trilha) onde 
inicia o diretório do disco. 
e DDGA-= valor 
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densidade 
densidade 
densidade 
densidade 
densidade 
densidade 


densidade 


A 
B 
é 
D 
E 
E 
G 
H 


densidade 


Figura 3 


PDORIVE Ox 


simples, 
simples, 
simples, 
simples, 
dupla |, 
dupla 
dupla 
dupla 





TI=A, TD=E, TC=40,SPT=18, TSR=3,6PL=2,DDSL=17,DDGA=2 





Figura 4 


PDRIVE 8 


PDRIVE 9 


TI=AIM, TD=E, TC=40,SPT=iB,TSR=2,6GPL=6,DDSL=17,DDGA=2 
TI=A, TD=E, TC=40,SPT=í8,TSR=2,GPL=2,DDSL=36,DDGA=2 





Figura 5 


Quantidade de grânulos reservados 
para o diretório quando da formatação 
do disco. 

A 

Este parâmetro, se constante na lista 
do PDRIVE, provoca a imediata imple- 
mentação das modificações dos outros 
parâmetros; do contrário, tais modifica- 
ções só estarão disponíveis após um 
RESET do sistema. 


O PROGRAMA CONV/BAS 


O programa CONV/BAS, cuja lista- 
gem incluimos neste artigo, é um exem- 
lo das aplicações do PDRIVE na simu- 
ção de outros sistemas. Ele deve ser di- 
gitado no BASIC do NEWDOS, prestan- 
do-se, no entanto, a uma série de conver- 
sões. Foi concebido originalmente para 
o CP-500, mas pode sofrer modificações 
e rodar igualmente no DGT-100. É pre- 
ciso, porém, não esquecer que um pro- 
grama convertido pode não funcionar 
adequadamente fora de seu sistema de 
origem, e isto é mais evidente quando se 
trata de programas em linguagem de má- 
quina. 

Vejamos, então, como funciona o 
PDRIVE no CONV/BAS. O nosso siste- 
ma mestre, ou seja, o equipamento utili- 
zado, será um CP-500 e, consequente- 
mente, o PDRIVE O terá a configuração 
da figura 4. Simularemos um DOS500 
no PDRIVE 8 e um DIGDOS no PDRI- 
VE 9, com as seguintes configurações 
mostradas na figura 5.: 

Quando fizermos uma conversão, 
bastará especificar, no comando COPY, 
o SPDN (Source PDrive Number) e o 


DPDN (Destination PDrive Number). 
Assim, para copiar um programa do 
DOS 500 para o DIGDOS, por exemplo, 
devemos determinar SPDN= 8 e DPDN 
=9. Com isso, o NEWDOS do CP-500 
lerá o programa como se fosse um DOS 
500, gravando-o como se fosse um 
DIGDOS. 

Como já dissemos, uma conversão 
pura e simples não é garantia de 
que o programa irá funcionar adequada- 
mente no seu novo sistema. É necessário 
testar o programa inúmeras vezes até se 
ter certeza de seu desempenho. E óbvio 


que, quanto mais simples o programa, 


mais chances tem a conversão de resul- 
tar 100% perfeita. 

Um fato porém não pode ser esque- 
cido: apesar do BASIC ser universal, as 
várias versões BASIC do TRS nem sem- 
pre se equiparam, pois os fabricantes de 
sistemas gostam de fazer algumas modi- 
ficações em relação aos seus concorren- 
tes. Para facilitar a conversão, portanto, 
trazemos no quadro anexo uma tabela 
de compatibilidade entre o BASIC do 
NEWDOS e o do DOS5S00. 

O CONV/BAS, tal como listado aqui, 
funciona num CP-500 com um drive. 
Para dois drives basta alterar a linha 90 
para M$=''S=COPY, 0,1,,... Ainda com 
relação a esta linha, os parâmetros do 
COPY significam: 

e CBF (Copy By File): implica numa 
cópia, a ser executada, de todos os ar- 
quivos do diretório. 

e CFWO (Check File With Operator): o 
sistema irá perguntar, arquivo por arqui- 
vo, se: deve ser copiado (Y)/ não deve 


ser copiado (N); deve reiniciar o proces- 88 
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so (R); todos os arquivos já foram iden- 
tificados (Q). 

e NFEMT (No ForMat): o sistema não 
formatará o disco de destino, cabendo 
ao operador certificar-se de que o disco 
destino está no padrão requerido pela 
conversão. 


2 — O COMANDO SYSTEM 


O comando SYSTEM permite que 
alguns parâmetros do NEWDOS sejam 
alterados de forma a possibilitar uma 
melhor performance do sistema como 
um todo. A razão de ser do próprio co- 
mando se prende ao fato de que é prati- 
camente impossível criar um sistema 
realmente integrado a todas as situações 
e configurações dos equipamentos exis- 
tentes. Dessa forma, o NEWDOS consti- 
tui-se num sistema flexível, podendo 
amoldar-se a qualquer utilização es ae 
fica e aos mais exigentes usuários. 
portante, porém, nunca esquecer que 
qualquer alteração, via comando 
SYSTEM, só poderá ser feita após o 
RESET do micro. 

A sintaxe geral para o comando está 
na figura 6. Se for dado, por exemplo, o 
comando SYSTEM, 0, o sistema apenas 
listará os parâmetros e seus valores cor- 
respondentes. 


OPÇÕES DO COMANDO SYSTEM 


e AA-Y ouN 

Este parâmetro está relacionado à re- 
quisição, ou não, de uma senha de aces- 
so. Se AA=Y, comandos como SYSTEM, 
PDRIVE, PURGE etc. irão necessitar da 
introdução de uma senha que será a 
mesma do disco. No entanto, se AA=N, 
não haverá necessidade da senha ser digi- 
tada. Por exemplo: para AA= Y, o co- 
comando PURGE será PURGE, SENHA 
O; para AA=N, o comando PURGE será 
PURGE, 0. 

e AB-YouN 

O parâmetro AB diz respeito ao mo- 
do de operação do disco. Se AB=N, o 
sistema opera normalmente, sem ne- 
nhuma restrição. Por outro lado, se AB= 
Y, o sistema opera apenas em modo 
RUN, ou seja, permite apenas a execução 
de programas. Obviamente que tal 
opção pressupõe um comando AUTO 
implementado para que o boot do sis- 
tema não acarrete a mensagem RUN- 
ONLY STOPPED!! PRESS 'R' FOR 
RESET, e em decorrência disso entre 
num loop do qual jamais sairá. 

A consequência mais imediata desta 
opção é a desativação dos grupos de te- 
clas 123 (DEBUG), JKL (COPY para 
impressora) e DFG (mini NEWDOS), 
assim como da tecla BREAK. Além dis- 
so, não é permitido nenhum comando 
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SYSTEM, [senha: IdníC,AA=Y/NIL,AB=Y/NIL,AC=Y/NIL,AD=Y/NIL, AE=Y/NI 
C,AF=Y/NIC,AG=Y/NIC,AI=Y/NIL,AJ=Y/NIL,AL=valIC,AM=vall 
C,AN=valIC,AO=valIC,AP=valil,AQ=Y/NIL,AR=Y/NIL,AS=Y/NI 


C,AT=Y/NICL, AU=Y/NIC, AV=valIC,A=valIC,AX=valIC,AY=Y/NI 
C,AZ=Y/NICL,BA=Y/NIL, BB=Y/NIL,BC=Y/NIL,BD=Y/NIL,BE=Y/NI 
C,BF=Y/NIL,BG=Y/NIL,BH=Y/NIL,BI=valll,BJ=valIC,BK=Y/N] 


Figura 6 


direto, e se um LOAD, sem as opções R 
ou V, for tentado, o sistema simples- 
mente o rejeitará, acusando a ilegalidade 
do comando direto. 
e AD-YouN 

O parâmetro AD está relacionado ao 
grupo de teclas JKL que, se pressionadas 
conjuntamente, produzem uma cópia da 
tela de vídeo na impressora. Se AD=Y, 
essas teclas estarão ativadas e se AD=N, 
não será possível ativar JKL. 
e AE-YouN 

Este parâmetro está relacionado ao 
comando utilitário DEBUG, o qual faz 
parte do sistema NEWDOS/80, sendo 
um poderoso monitor para linguagem de 
máquina. A sua ativação pode ser efe- 
tuada pelo grupo de teclas 123; se 
AE=Y, o grupo estará ativado e se 
AE=N, o grupo estará desativado. 
e AF=YouN 

O parâmetro AF ativa e desativa o 
grupo de teclas DFG, responsável pelo 
acionamento do mini NEWDOS. 
e AG-YouN 

O parâmetro AG presta-se a uma alte- 
ração da tecla BREAK, sem no entanto 
desativá-la. Se AG=Y, a tecla é conside- 
rada como um INPUT normal e seu 





valor é 1. Se, por outro lado, AG= N, 
BREAK não é considerada uma tecla 
normal e seu valor de INPUT é modifi- 
do para 0. 


e AJ-YouN 

Responsável pelo desvio do SCAN do 
teclado para uma rotina própria do 
NEWDOS. Isso significa que ao ocorrer 
uma interrupção para leitura das teclas, 
tal função será desviada da sua trajetória 
original, permitindo não só o controle 
sobre a repetição das teclas como tam- 
bém sobre um dos processos de reco- 
nhecimento dos grupos de teclas 123, 
JKL e DFG. 

Se AJ=N, a rotina de intercepção do 
NEWDOS estará ativa, porém se AJ=N, 
esta rotina não será utilizada e, além 
disso, o controle de repetição das teclas 
passará automaticamente para a ROM, 
e o reconhecimento dos grupos de teclas 
JKL, 123 e DFG dependerá apenas das 
interrupções normais do sistema. Para 
forçar um AJ=N, basta manter pressio- 
nada, durante o RESET, a tecla seta 
para cima. 

e AL=la4 
Este parâmetro especifica a quanti- 


Tabela de compatibilidade 
entre BASIC do NEWDOS 
e do DOS500 


“NEWDOS — não tem equivalent 


2 — Ativa e desativa a oe 


- DOS 500 — CMD “B”, “ON/OFF” 
: NEWDOS — CMD “BREAK, Y/N” 
3 — Lista o diretório do disco: | 
. DOS500 — CMD “D:0” 
. NEWDOS — CMD “DIR” 
4 — Executa um comando do DOS: 
- DOS500 — CMD *T”, “ iá 
-. NEWDOS — CMD “comando” 
5 -— Carrega uma sub-rotina em linguagem 


de 
. DOS 00 — CMD “L”, “rotina” 
. NEWDOS — CMD “LOAD, rotina” 


6 — Verifica status da impressora: 
« DOS500 — CMD “P”, string 
- NEWDOS — PEEK (& H37E8) 
7 — Liga o relógio na tela: 
« DOS500 — CMD “R” 
- NEWDOS - CMD “CLOCK, Y” 
8 — Desliga o relógio na tela: 
« DOS500 — CMD “T” 
-. NEWDOS — CMD “CLOCK, N” 
9 — Executa a pesquisa de palavras ou va- 
riáveis no texto residente: 
. DOS500 — CMD “X”, objeto 
. NEWDOS — REF objeto 
10 — Duplica saída de vídeo para impres- 
sora: 
. DOS500 — CMD “Z”, “ON/OFF” 
- NEWDOS —- CMD “ROUTE...” 
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dade de drives instalados no equipamen- 
to. Deve conter sempre a quantidade 
real para evitar que o sistema perca tem- 
po checando drives inexistentes. Seu 
valor nunca deve exceder a 4. 

e AM=0a 255 (0= 256) 

Esta é a quantidade de tentativas de 
leitura do disco até que um erro E/S seja 
declarado. Seu valor original é 10. 

e AN=0a 255 

Número de default do drive para o 

comando DIR. 


e AQ-0a 255 

Durante a criação de um arquivo sem 
especificação de drive, o sistema procu- 
ra, em primeiro lugar, por um arquivo 
com o mesmo nome. Não encontrando, 
o sistema irá procurar por uma área livre 
para a criação do arquivo lendo os drives 
a partir do drive constante em AO. Ne- 
nhum drive com numeração menor a 
AO será checado quanto ao espaço livre 
para alocação de programas. 
e AP= endereço 

Se for diferente de zero e correspon- 
der a uma posição real de memória, 
este endereço será assumido como o 
HIMEM do sistema e armazenado no 
endereço 4411H (modelo 1=4049H). 
e AQ-Y ouN 

Parâmetro que ativa (AQ=Y), ou de- 
sativa (AQ=N) a tecla CLEAR. É neces- 
sário, porém, que a opção AJ seja igual a 
Y 


e AR=YouN 

Condição para verificação da senha 
quando usado o comando COPY nos 
formatos 5 e 6.Se AR=Ye AA=Y,ase- 
nha será testada; caso contrário (AR= N), 
ela não será testada. 


e AT-=YouN 

Chave de ativação de modo de grava- 
ção para operações CHAIN (AT=N). 
e AU-YouN 

Chave liga/desliga para a repetição de 
teclas. Se AU=N, a repetição das teclas 
passa a ser comandada pela rotina inter- 
na da ROM. 
e AV-0a 255 

O valor de AV corresponde à quanti- 
dade de tempo (multiplicada por 25 ms) 
que a repetição de teclas esperará para 
entrar em ação após uma tecla ter sido 
pressionada. O intervalo entre cada repe- 
tição também será função desse valor. 
e AW-0a 255 

Quantidade de vezes em que o siste- 
ma escreve e verifica as informações no 
disco. Este parâmetro opera em conjun- 
to com AM, informando ao operador 
sempre que um erro for detectado. Se 
AW for maior que 1, então o sistema, 
em caso de erro, automaticamente ten- 
tará uma nova gravação. 
e AX-0a 255 

Valor mais alto do código ASCII para 
impressão de caracteres pela rotina 
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Fe CONTAR 


programa, para conversao de 
"A arquivos entre os sistemas 
a DOS500 <-> NENWDOS <-> DIGDOS, 
"á desenvolvido em ABRIL de 1984 
é 4 no CPD da MICRO SISTEMAS. 
"x 
*'% Renato Degiovani 
PUXAR RR HH He Da Ha Da Da Ha Da Da De He Da Da a e Da Da Ha Da a Ha ho Ha Ha La La Da Da Da La Da Da Da Da Da Da a he da 
£O CLEAR 100 : CLS 2: CMDBREAK,N” : POKE 16º 64,5 
20 PRINT STRINGS (64,37)5“MICRO SISTEMAS” ;CH 6(202);"C O NV 7/7 B 
A S “sCHR$(202);MICRO SISTEMAS“; STRINGS (64,37) à PRINT 
30 CMD“PDRIVE, NELDOSBO:0,B, TI=AIM, TD=E, TC=40,SPT=18, TSR=2,6PL=6, 
DDS. =17,DDGA=2,A” : CLS 
40 CMD“PDRIVE, NEWDOS8B0:0,9, TI=A, TD=E, TC=40,SPT=18,TSR=2,GPL=2,DD 








CNA DOR 


S8L=36, DDGA=2,A7 : CLS 

SO PRINT TAB(9)“Este programa copia arquivos fazendo as devidas 
conver-soes. O CONV/BAS nao questiona se o disco esta” ou nao fo 
rmata- do.” 

60 PRINT 9576,“0pcoes:”; 9704,7<1) NEWDOS --—> DOS500”,“<2) DOSS 
00 ---> NEWDOS”,”<3) NEWDOS ---)> DIGDOS”,”“<4)> DIGDOS -——)> NEWDOS 
“ “45) DOSS00 ---> DIGDOS”,“<6) DIGDOS --—-> DOSS00”,“<7)> BASIC” 


70 US=INKEYS =: IF UG>77”7 OR UG 1” THEN 70 

BO U=ASC(US)-48 : ON U GOSUB 110,120,130,140,150,160,170 

90 M$=7S=COPY,0O,0O,,CBF,CFWO,NFMT,SPDN="+55+", DPDN="+TS 

100 CLS : PRINT 9192,“disco fonte ---) “s;F$,“disco destino —-—> 
“Db; 0640, : CMD M$ : END 
110 F6=7NEWDOS” D$=“DOS5007 
120 F6="7D055007 D6="NEWDOS” 
4130 F$6=7NEWDOS” D6=“DIGDOS” 
4140 F6="DIGDOS” D6="NEWDOS” 
150 F$6="D0OS500” D$=“DIGDOS” S6=787 T6=797 
160 F6="DIGDOS” D6="D0S5007 S96=797 T6="787 
170 POKE 16916,0 : CMDBREAK,Y” : CLS : END 


S64=707 
S6=]787 
66=707 
SG=797 


T5="8" 
T6="0” 
T$="9" 
T6="D” 


RETURN 
RE TURN 
RETURN 
RETURN 
RETURN 
RETURN 





PRINT do NEWDOS. Acima desse valor 
os caracteres são substituídos por espa- 
ço ou pontos. 
e AY-YouN 

Chave liga/desliga para a questão 
DATA/HORA quando o micro é ligado 
(a indagação só será feita se AY=Y). 
e AZ=Y ouN 

Chave liga/desliga para a questão (R). 
DATA/HORA quando o micro é resse- e BG=YouN 
tado. Sempre que AZ for igual a Y, toda 
vez que o micro for ressetado o sistema 
questionará a respeito da data e da hora. 
e BA-YouN 

BA= Y bloqueia todas as saídas de 
impressão até que o operador execute 
um ROUTE, CLEAR ou ROUTE,DO. 
BA= N cancela este bloqueio. 
e BB-Y ouN 

O parâmetro BB controla a interrup- 
ção do relógio do micro (apenas modelo 
HI). Se BB=N, as interrupções serão exe- 
cutadas 60 vezes por segundo e se BB=Y, 
as interrupções passarão a 50 vezes por 
segundo. 
e BC-Y ouN 

BC=Y permite que uma operação 
CHAIN seja interrompida pelo operador 
para que haja uma pausa ou cancelamen- 


mite esta facilidade. 
e BE-YouN 


ções serão em caracteres maiúsculos. 
e BH=Y ouN 


e BH=N fará com que ele seja estático. 
e Bl-0a 255 


(modelo 1=95 e modelo I[1=176). 
e BJ-02 255 


na velocide do clock. 
e BK-=Y ouN 


e BD-Y ouN 


CHECK sejam executadas. BK= Y não 
BD= Y dá ao operador a chance de = 


interfere nestas operações. 


anular o comando AUTO durante um 
RESET, bastando para isso manter a te- 
cla ENTER pressionada. BD=N não per- 


Com BE=Y podemos executar o co- 
mando R do DOS. BE=N não permite a 
repetição do último comando do DOS 


Se BG= Y, as informações digitadas 
pelo teclado serão admitidas em caracte- 
res minúsculos. Já se BG=N, as informa- 


Chave liga/desliga do cursor intermi- 
tente. Com BH=Y o cursor será piscante 


Código do caráter do cursor. Se 
BI=0, o sistema assume o valor standard 


Valor de medição cíclica para uma 
UCP que tenha sofrido alterações de 
hardware com consequentes mudanças 


BK= N não permite que o comando 
to. WRDIRP e as opções W e € do DIR- 





Decodificador de cores 


para componentes eletrônicos 





Na Seção de Cartas de MS nº 26, o leitor Alexandre C. Machado nos relatava a sua dificuldade em memorizar 
o código de cores de resistores e capacitores, solicitando então um programa que descobrisse o valor 
do resistor e do capacitor, dando entrada no micro só com o código de cores. Embora tenhamos remetido 
todas as colaborações que nos chegaram para o Alexandre, por uma questão de espaço, selecionamos apenas 
uma para publicação. Deixamos, entretanto, aqui registrados os nossos agradecimentos aos leitores 
que enviaram suas colaborações. 


Nelson Hisashi Tamura 


O programa a seguir, destina- | e opera com SLOW. Sua digitação é sim- explicativo quanto à forma de operação, 
do a micros compatíveis com a lógica ples, pois é escrito totalmente em lin- sendo indicado principalmente para ini- 
Sinclair, ocupa 16 Kb de memória RAM  guagem BASIC. Além disso, ele é auto- ciantes na área de eletrônica. 


Decodificador de cores 











500 PRINT AT DC.2rcme Var 15,8 
1 REM ---DEEH--- -1354 - “QUER OUTRA LEITURA & E E 
& SLOUW di sei 
10 LET Eg='-------- =... — Da IF INkKEvg=]"Nº THEN GOTO 280 
SER 7 2 
20 GOTO zZ9021 se0 GOTO 258 
SO CLS SI -LET C=16 
40 PRINT L eo o EM PICOFAR 540 IF A=2 THEN LET D=165 
ADS (PF) “:TRE 2; E 3550 IF G=E THEN LET Z=8 
So PRINT é * ss 516 SO LET G=27 
&* 100 INPUT dig 
BO PRINT ,.,," CAPACITOR qd 1 4&lD EF Ug=" DOURADO” THEN PRINT 
DIGITO nene AT Zs65* RREO Es pis” 
70 PRINT é . 420 IF VE="PRETO! THEN PRINT aT 
Ss PRINT “1 ce De LDO” 
Lts mas” “So Er Vã= MARROM" THEN PRINT à 
52 PRINT “2 T As Pr bsb: 
120 PRINT “5 E 440 IF 485 VERMELHO: (TREN PRINT 
ZEROS  «" o RI L£LsGs"2";zAaT C,D;' 
1180 PRINT “4 FARTO — 450 IF UE='LARANVA! THEN PRINT 
120 PRINT “Ss = “4 TOLLER RT Zibia CoDUOSBE 
ANCIA..“ Le) IF UG='AMaARELO! THEN PRINT 
130 PRINT ” T T * AT Za 6;4":;87 C,br"A 
1480 PRINT é a TENSA 470 IF UE="VERDE" THEN PRINT ar 
Earl dad Es» a E Gir E Da 
150 FOR X=0 TO 2 430 IF A Me TREN PRINT AT 
160 PRINT “ Ê ! LS; ºBrsAT C,D;"E 
170 NEXT x 490 TF Ug='". IOLETAS THEN PRINT 
1860 LET D=15 AT Z,6; ?": AT e oh 
190 LET Z=85 500 IF UG="CINZAS THEN PEINT aT 
200 PRINT aT 158,15 TEC So TE rEE Zed O sr tsDo ar 
o Sl0 IF Ug="'BRANCO! THEN PRINT & 
210 FOR &=1 TOS T Lso, 94H bs Ds “OM 
220 PRINT AT 15,6; "QUAL & COR D Se20O IF UG='DOURADOS OR Ug="'PRET 
= JA: CR FAIXA E 0º OR Ug="MARROMO OR UE='VUERMELH 
230 IF A:<=2 THEN GOSUB 330 0º OR UE="LARANJAS OR Ug="AMAREL 
240 IF H=3 THEN GOSUBE 550 O OR UG='VERDE OR Ug="AZULC DÊ 
250 IF A=á THEN GOSUB 7960 Ug=" UTOLETAS OR UE="CINZAU OR U 
oo NEXT & &='BRANCOS! THEN RETURN 
2'Q COSUB 720 S30 COSUB 350 
Fásdo, PRINT ni mn RA aa; SAD GOTO 49042 
4 = es EIS a = nt! 8s0 LET D=17 





60 LET E=lê 
290 IF INKEvg&="5" THEN GOTO 3a Goo INPUT ti 
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e PROGRAMAÇÃO MICROS 
— BASIC | - Introdução 


— BASIC Il - Avançado 
INFANTO-JUVENIL (8a 16 anos) 
— BASIC 19/20 Grau 
— Criando com LOGO 


e USUÁRIOS DE MICROS 
— Microinformática 


— VISICALC 


CAMPINAS 
SÃO PAULO 


- Rua César Bierrenbach, 171 
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T 153,21, TEEDDOE 7 o já 232.00 3110 IF INKEYv$="C" THEN GOTO 30 
URADO":AT 45,24; "Sta "AT 17,02: 3120 GOTO 3050 

“PRATERDO":AT 18,24:"10F,." 92900 SAVE “DECODIFICADORB 
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Os Kits de Micro Chegaram! 


APPLEKIT - Kit de microcomputador tipo Apple? 












Componentes para montagem 
de um microcomputador 
APPLEKIT completo. 


microcontrol 


Sistemas de Controles 
Tels.: (011) 814-0446 e 814-1110 
São Paulo - Brasil. 


APPLEKIT 65100 
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APPLEKIT 65300 APPLEKIT 65400 


“APPLEKIT 65000 | Placa de circuito impresso. | APPLEKIT 65010| Conjunto de soquetes, conectores, resistores e ca- 
pacitores. | APPLEKIT 65020] Conjunto de semicondutores, TTL's, LSIe memórias (As memórias EPROM são forneci- 


———————eeeee meme) 


das com gravação). | APPLEKIT 65100! Conjunto de teclado alfanumérico com 52 teclas e componentes, circuito im- 


presso. [APPLEKIT 65200] Fonte de alimentação tipo chaveado. | APPLEKIT 65300] Caixa de microcomputador em 
poliuretano. | APPLEKIT 65400 | Manual de montagem e teste de micro. 


APPLEKIT é 100% compatível com os cartões periféricos da MICROCRAFT. * Apple é marca registrada de Apple Ine 












Voce já deve saber quantas linhas x colunas podem ser geradas no Apple, 
mas não fique só nisso... conheça melhor a memória de vídeo do /| Plus 








Não perca de memória 


o vídeo do seu Apple 





Evandro Mascarenhas de Oliveira 





ara muitos usuários de equipamentos da linha Apple, 

informações do tipo número de linhas x colunas gera- 

das no vídeo ou número de pontos em modo gráfico 

de alta resolução não são novidades, quando se trata 
da memória de vídeo do Apple. Entretanto, nesse artigo, ire- 
mos além dos conhecimentos comuns, adentrando na memória 
de vídeo do Apple II Plus para mostrar aos usuários como tra- 
balhar mais facilmente com essa memória. Trataremos, especi- 
ficamente, das Páginas 1, com os modos texto e gráficos em 
alta e baixa resoluções. 

Antes de qualquer coisa é necessário saber que a tela de ví- 
deo é mapeada de forma que a determinados endereços da 
RAM correspondam áreas específicas, as quais exibirão carac- 
teres ou pontos coloridos quando os códigos relativos a esses 
elementos da imagem são referenciados naqueles endereços. 

Vamos partir da figura 1, que mostra a organização geral da 
memória do Apple II Plus, com 48 Kb de RAM e 12,288 Kb 
de ROM. Nesse mapa observamos que a memória de vídeo ocu- 
pa as seguintes posições: do endereço 1024 ao 2047 está a cha- 
mada Página 1 que corresponde aos modos texto e gráfico de 
baixa resolução; do 2048 ao 3071 está a Página 2, com os mo- 
dos texto e gráfico de baixa resolução; do 8192 ao 16383 está 
a Página 1, com os gráficos de alta resolução; e, finalmente, do 
endereço 16384 ao 24575 está a Página 2 com os gráficos de 
alta resolução. 

Em BASIC estes endereços são acessados por POKE seguido 
do endereço e do código do caráter, nos modos texto e gráfico. 
Os endereços referenciados desta forma permitem, entre outras 
coisas, exibir, em modo flash ou inverso, os caracteres que a ins- 
trução PRINT por si só não faz (necessita especificar FLASH 
ou INVERSE), inclusive aqueles que não têm acesso direto pe- 
lo teclado (letras minúsculas, alguns caracteres de pontuação, 
etc.). Permitem ainda escrever em modo texto sem o uso do 
PRINT ou utilizar a Página 2, inacessível pelo BASIC, que só 
usa a Página 1. 


CARACTERÍSTICA DA PÁGINA 1 


A Página 1 apresenta, como característica, uma área de tex- 
to dividida em 24 linhas (O a 23) x 40 colunas (0 a 39), num to- 
tal de 960 unidades gráficas, sendo que cada uma dessas corres- 
ponde a um endereço da RAM, entre 1024 e 2039. 

Um aspecto importante é que a linha zero inicia em 1024 e 
termina em 1063, porém a linha um não começa em 1064, que 
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MAPA GERAL DA MEMÓRIA DO APPLE II PLUS 


ROM: Sistema Monitor, Interpretador Applesoft 


I/0 : teclado, slots, alto-falante, controlador 
de jogos, cassete, chaves "soft", controle te- 
clado 


ÁREA LIVRE-(2)-PARA O USUÁRIO: 
quagem de maquina ate 13,5 Kb, 
variaveis BASIC 


programas em lin 
Default Himem, 


ÁREA LIVRE-(1)-PARA O rca programas em 
guagem de maquina até 5 


PÁGINA 3: variaveis do Monitor e DOS + Vetores, 
programas curtos em linguagem de maquina (142 
bytes) 


PÁGINA 2: entrada de dados pelo teclado 


SISTEMA STACK: controle do retorno de sub-roti 
nas, interruptores de software e hardware 


PÁGINA O: variáveis do Monitor 


e Applesoft, 
endereços livres para O usuario 





Figura 1 


é o início da linha oito, havendo a seguinte segiiência de linhas: 


0-8 — 16 4-12-20 
1-9 —17 5-13-21 
2- 10-18 6 —- 14-22 
3-11-19 7—-15-23 


São, portanto, oito grupos de três linhas, e a cada conjunto 
de linhas sobram oito bytes, que são usados nos controles I/O 
dos slots para interfaces externas. Assim, as linhas O — 8 — 16 
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CARACTERES MODO INVERSO 


DOIDA tato 


OZzrrxLumrzammonwv>rso 


DO SO da to by) = O 


pI XE<LCINTONS 
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D 
E 
F 
G 
H 
I 
J 
K 
L 
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vão do endereço 1024 ao endereço 1143, seguindo-se as linhas 
| —-9 — 17, que vão de 1152 a 1271, deixando os endereços 
1144 a 1151 para o byte zero dos slots O a 7. 

A área para gráficos em baixa resolução, da Página 1, é divi- 
dida em 48 linhas (0 a 47) x 40 colunas (0 a 39), em full screen, 
ou 40 linhas (0 a 39) x 40 colunas (0 a 39), com quatro linhas 
de texto (20 a 23) em modo misto (texto/gráfico). No primei- 
ro caso, existe o dobro de linhas da área de texto, porém com 
o mesmo número de endereços, o que se explica pelo fato de 
cada caráter em texto corresponder a duas áreas de cor (supe- 
rior e inferior) nos gráficos de baixa resolução. 

O mapeamento completo da memória de vídeo, nos modos 
texto e gráficos de alta e baixa resoluções, poderá ser consul- 
tado em Intermediate — Level Apple II Handbook, de David 
L. Heisérman, páginas 280 a 281 e 301 a 312. 





MODO TEXTO 





Como frisamos anteriormente, a utilização da memória de 
vídeo é feita acessando-se o endereço e o código do caráter 
através de POKE. Na figura 2 temos os códigos em decimal e 
hexadecimal dos caracteres usados pelo sistema para os modos 
inverso, flash e normal. 

O programa que damos a seguir exibe na tela de vídeo os ca- 
racteres utilizados pelo sistema nas linhas 0, 8, 16, 1,9 e 17. 
Nele observamos que alguns desses caracteres foram suprimi- 
dos, justamente os que correspondem às posições da memória 
para os slots, ao final das linhas 16 e 17. 


o HOME 


IO FOR K = 0 TO 255 
20 POKE 1024+K, K 
30 NEXT 


Para evitar este tipo de problema, nós utilizaremos três en- 
dereços e uma sub-rotina, que nos permitirão varrer na tela os 
endereços da memória de vídeo sequencialmente, linha por li- 
nha, coluna por coluna. 

Os dois primeiros endereços são os 41 ($29) e 40 ($28), 
denominados respectivamente de BASH e BASL, que juntos 
representam o endereço do primeiro caráter da corrente linha, 
sendo BASH o byte mais significativo e BASL o menos signifi- 
cativo. 

Acessando PRINT PEEK (41), PEEK (40) obtém-se os valo- 
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CARACTERES EM MODO NORMAL-1 


amnmonv>0 


-.- 


OZEUCXUm 


res 04 e 00 que, em hexadecimal, correspondem a $0400, ou 
1024 em decimal. Este é o endereço da primeira coluna da li- 
nha zero. 

Temos agora um programa que mostra os valores em deci- 
mal de BASH e BASL, para as linhas de texto (O a 23): 


5 HOME 

IO FOR K = O TO 25 
20 PRINT K, PEEK(41), 
30 NEXT 


PEEK 40 


Passando para hexadecimal os valores dos endereços 41 e 
40, como um só,teremos todos os endereços iniciais(figura 3) 
das 24 linhas da Página 1 (texto/gráfico). 

O terceiro endereço é o 36 ($24), conhecido como CV, 
pois, contém o valor da coluna do cursor. O CV, sendo adicio- 
nado ao endereço BASH-BASL, dará o endereço do caráter 
que está sendo exibido. 

A sub-rotina utilizada é a ADVANCE, que tem início no en- 
dereço 1036. Esta sub-rotina avança o cursor uma coluna para 
a direita e quando chega ao final da linha, retorna ao início da 
seguinte, levando CV a zero. 

A expressão EX = 256 * PEEK (41) + PEEK (40) + PEEK (36) 
significa a conversao 
significa a conversão para decimal do valor hexadecimal do en- 
dereço da posição atual do cursor. Combinando esta expressão 
com a sub-rotina ADVANCE, conseguiremos varrer toda a tela, 
através de POKE, linha por linha, coluna por coluna, conforme 
o programa abaixo. Este programa, exibe todos os caracteres 
do sistema, sequencialmente, na Página 1, em modo texto. 

HOME: 
IO FOR K = 0 TO 255 
20 POKE 256 * PEEK(41) + 
30 CALL - 103€ 
40 NEXT 

A expressão EX é modificada por HTAB e VTAB ( o de- 
fault é HTAB 1: VTAB 1). Assim, o programa anterior adicio- 
nado de HTAB 20 : VTAB 12, entre as linhas 5 e 10, inicia os 
caracteres no centro da tela. 


PEEK(40) + PEEK(36), K 


GRÁFICOS EM BAIXA RESOLUÇÃO 
Em modo gráfico, da mesma maneira que no texto, de acor- 


do com o endereço e o código do caráter acessados através de 
POKE, será exibida uma determinada unidade gráfica colorida. 48 
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NÃO PERCA DE MEMÓRIA O VÍDEO DO SEU APPLE 












DO Do 
Ds [a [os [so] 
2 [5 [o [05/00] 
[o 
oo 





Acompanhe na figura 4 o caráter ASCII que corresponde, 
em gráfico de baixa resolução, a duas cores: uma, superior, da- 
da pela parte menos significativa do seu código em hexadeci- 
mal; outra, inferior, dada pela porção mais significativa. 

Comando, em modo gráfico, POKE 1024, 129, teremos a 
exibição de um retângulo colorido na linha zero e coluna zero, 
com a cor superior vermelha e a inferior marrom. É bom frisar 
que 129 é o código decimal da letra A, que corresponde em he- 
xadecimal a $81, sendo 1 a cor vermelha e 8 a marrom. 

Da mesma forma que fizemos no modo texto, vamos agora, 
através do programa a seguir, mostrar as cores em baixa resolu- 
ção para todos os caracteres do sistema, separadas por um es- 


paço: 
5 HOME 
10 GR : HTAB 1 : VTAB | 
20 FOR K = 0 TO 255 
30 POKE 256 * PEEK(41) + PEEK(40) + PEEK(36), K 
40 CALL - 1036 
50 CALL - 1036 
60 NEXT 


A figura 5 mostra os códigos de cores únicas, quando utili- 
zado o POKE em gráficos de baixa resolução. 


GRÁFICOS EM ALTA RESOLUÇÃO 


A tela em alta resolução é formada por 92 linhas (O a 191) 
x 280 colunas (0 a 279), em full screen, num total de 53760 
(192 x 280) elementos de imagem, ou, então, 160 linhas (O a 
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Gigibstrri. 







TEXTO 


Figura 4 
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0480 


E a ee 
z PEEK(41) | PEEK(41) usa 
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LSB HEXADEC IMAL 
PEEK(40) END 
MSB LSB | FINAL 


O CA CO CT EC OZ 


— 


POKE - POKE * 
[| ue [o [me 
0 


($S00) PRETO (S88) MARRON 
17 ($11) VERMELHO (S99) LARANJA 
34 (522) AZUL ESCURO (SAA) CINZA II 
PÚRPURA (SBB) ROSA 
VERDE ESCURO (SCC) VERDE CLARO 
CINZA 1 (SDD) AMARELO 
AZUL MÉDIO (SEE) AZUL ÁGUA 
AZUL CLARO (SFF) BRANCO 


51 (533) 
68 (544) 
85 (555) 
($66) 
(S77) 





Figura 5 


159) x 280 colunas (0 a 279), em modo misto (gráfico/texto), 
com quatro linhas de texto (20 a 23). 

Em alta resolução, a tela é varrida por 64 grupos de três li- 
nhas, deixando oito endereços livres, ao final de cada grupo, 
que se diferenciam dos anteriores por oito linhas, assim: 

O — 64 — 128 


8 —- 72 — 136 
16 — 80 — 144 
24 — 88 — 152 


O mapeamento da memória requer 7680 bytes, que corres- 
pondem a 192 linhas x 40 colunas tendo cada coluna 7 bits ou 
280 elementos (40 x 7) de imagem por linha. O programa abai- 
xo demonstra esta distribuição: 


10 HOME 

20 HGR 2 
30 FOR K = 
ÃO POKE K,255 : FOR L 
50 NEXT 


16384 TO 24567 


> 1 TO 10 : NEXT 


Quando o endereço e o código de um caráter são acessados 
por POKE, em alta resolução, haverá a exibição, ou não, de 
pontos luminosos, conforme o equivalente em binário daquele 
código. 

Dos oito bits de um byte, sete são responsáveis pela forma- 
ção dos elementos da imagem, acendendo um ponto quando o 
valor for 1 e mantendo apagado, quandor for zero. O oitavo 
bit é usado para controle das cores Branco 1, Branco 2, Preto 1 
e Preto 2. . 

Na figura 6, podemos observar o efeito através do comando 
POKE, seguido do endereço e do código, com os elementos da 
imagem em alta revolução e os seus correspondentes binários. 
Vemos então que os códigos estão interpretados, de maneira 
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BINARIO 
DD Z:6 5 4 BD E 4 


ELEMENTOS DA IMAGEM 
4 6 7 Código 

Dec-0 
$-00 


Dec-1 
$-01 


Dec-2 
$-02 


Dec-7 
$-07 


Dec-127 
$-7F 


Dec-128 
$S-80 


Dec-255 


GM S-PF 


SA ACESO Lo APAGADO 





Figura 6 


reversa, isto é, os bits mais à direita do byte têm sua imagem 
na tela mais à esquerda, como se fosse observada por um espe- 
lho. O programa a seguir reproduz a figura 6 na tela do vídeo: 


IO HOME 
10 FOR K 


: 8142 TO 14336 STEP 2048 


40 READ A : POKE K,A : NEXT 

SO DATA: O; Us 25 TF 

60 FOR K = 8320 TO 12426 STEP 2048 
70 READ A : POKE K,A : NEXT 

BO DATA 127, 128, 255 


Esse fenômeno, de formação da imagem de maneira reversa, 
pode ser melhor observado através da figura 7. Neste último 
programa, exibimos a seguir,a letra R, na matriz 8 x 7, corres- 






O Banco de negócios. 


3 Vezes Sem Juros 









BIT DA COR BINÁRIO (8 bits) 


ACESO 


APAGADO 


ZA ELEMENTOS DA IMAGEM 


(7 bits) 





( Figura 7 — O número 83 ($53), sua representação binária e correspon- 


dência em gráfico de alta resolução, como imagem na tela de vídeo. 


pondente às linhas de O a 7 e colunas O a 6, gerada por mapea- 
mento de bits, de acordo com a figura 7. 


10 HOME 
20 HGK 


310 FOR K = 8192 TO 15360 STEP 1024 
40 READ A, 

SO POKE K,A 

60 NEXT 

70 DATA O, 30, 34, 34, 30, 6, 10, 50 


80 END 


Para finalizar, é bom frisar que os códigos O e 128, assim 
como, 127 e 255, têm o mesmo efeito visual: os bits apagados, 
no primeiro caso e todos acesos, no segundo. Isto porque o oi- 


tavo bit não tem influência, devendo ser o byte interpretado 
como sendo de 7 bits. = 


Evandro Mascarenhas de Oliveira é médico e vem desenvolvendo suas 
atividades nas áreas de Laboratório Clínico e Instrumentação Médica. 
Trabalhou quatro anos com o computador Burroughs 6700 do Núcleo 
de Computação Eletrônica da UFRJ nas linguagens FORTRAN IV e 
ALGOL. É usuário dos micros NE-Z8000 e AP ll. 





ENGLISH COURSE 


e Com 2 fitas de 3.30 hs. de duração, um manual, um 
livro de exercicio e um de texto você e toda a sua 
familia aprenderão a falar inglês, a lingua universal. 

e Produzido a cores pela equipe da TV mais 




















TK 2000 PROGRAMAS importante do Brasil. e Gravado em estúdio e em 
TK 85 APLICATIVOS externas mostrando sempre cenas do nosso cotidiano. 
CP 500 c/ 2 Drives FITAS P/ VIDEO e Preço de lançamento à vista com 10% de desconto 
ao cocina essa (Sin | Avançado), VISICALC 
mples e Avançado), À 

UNTRON MESAS PARA EDITOR DE TEXTO, PROFILE, MALA DIRETA/ETI. os 
DISKETTES COMPUTADORES E 5 
JOGOS P/ TK 2000 IMPRESSORAS isto rápida 

SE COMPUTER CAMPING, Para Crianças de 8 à 14 anos. 
PLACAS DE CPM MALAS PARA Periodo de Férias e nos Fins de Semanas. 
PROGUS COMPUTADORES PARQUE HOTEL DE ARARUAMA. 


Venha nos visitar e assistir a uma demonstração. 


BRASILTRADE CENTER 


Av. Epitácio Pessoa, 280 (Esquina com Visconde de Pirajá), aberto até às 22.00 h. Tel.: PBX (021) 259-1299 | 
“II Rua da Assembléia, 10 - Loja 112 - Centro Empresarial Cândido Mendes 
Tel.: PBX (021) 222-5343 fi 


INFORMAÇÕES: TEL.: 259-1 299 
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Minas debate impacto da 
tecnologia na sociedade 


A Fundação João Pinheiro 
vai promover, de 20 a 23 de 
agosto, em Belo Horizonte, o 
Seminário Sociedade, Cultura e 
Tecnologia. 

Partindo da premissa de que 
“será justamente pelo conjunto 
de decisões que hoje estão sen- 
do assumidas, ou não assumidas, 
que o Brasil de amanhã vai ga- 
nhar o seu contorno e o seu de- 
sempenho político, institucional 
e social””, o seminário vai pro- 
curar, com o auxílio de técni- 
cos e intelectuais e dentro de 
um enfoque baseado na Cultura, 
detectar os elementos da ''nova 
revolução” que está se proces- 
sando “no campo da produção 
econômica e industrial com as 
chamadas tecnologias avançadas 
na área da Informática e das Te- 
lecomunicações””. 

Os temas a serem abordados 
são os seguintes, com seus res- 
pectivos expositores: Sociedade, 
Economia e Tecnologia (prof. 


Aluísio Pimenta, presidente da 
Fundação João Pinheiro); Novas 
Tecnologias da Comunicação e 
Cultura (Benedito Nunes); /n- 
formática, Educação e Juventu- 
de (Ziraldo Alves Pinto); Novas 
Tecnologias da Comunicação e a 
Criatividade Artística (Júlio Me- 
daglia); Novas Tecnologias da 
Comunicação e da Informação e 
a Semiótica (Décio Pignatari); 
Novas Tecnologias e a Memória 
Cultural (Celina Vargas Moreira 
Franco); Novas Tecnologias e 
Meio Ambiente (José Zatz) e 
Novas Tecnologias e os Cenários 
do Futuro (Amílcar Herrera). 

O seminário será realizado 
no auditório do Banco de De- 
senvolvimento de Minas Gerais 
— BDMG e os interessados po- 
derão inscrever-se ou obterem 
maiores informações junto à 
Fundação João Pinheiro, Av. 
João Pinheiro, 146 — 10º an- 
dar, tel.: (031) 222-6833 ramal 
149, 





NCÊ promove 4º SEMICRO 


O Núcleo de Computação Eletrônica da Universidade Federal do 
Rio de Janeiro (NCE/UFRJ) promoverá, de 27 a 30 de agosto, no audi- 
tório do Centro de Tecnologia no Campus da Ilha do Fundão, o 4º 
SEMICRO — Seminário de Microcomputadores e a 32 Microexposição 
de Fabricantes Nacionais de Micros e Periféricos. 

O advento dos supermicros será o destaque da programação que 
incluirá, em linhas gerais, várias palestras sobre tecnologia e aplicações 
em microinformática, software básico, microeletrônica e automação de 
escritórios. Além dos conferencistas nacionais, o evento — que conta 
com o apoio da OEA, além da SEI, SBC, Finep, Capes, CNPq, Funtevê, 
CNI/Senai, Serpro, Abicomp e Sucesu — contará também com a partici- 
pação de convidados estrangeiros que apresentarão um panorama sobre 
as pesquisas científicas e as tendências industriais em âmbito interna- 
cional. 

Paralelamente ao SEMICRO, está prevista a realização de três semi- 
nários especiais abordando a penetração da Informática em campos es- 
pecíficos de atuação: | SINED — Simpósio de Informática Educativa, 
| SACI — Seminário. de Aplicações Científicas em Informática e Il 
SEMAP — Seminário de Microinformática na Administração Pública. 

A 3º Microexposição ficará aberta ao público em geral durante os 
quatro dias do SEMICRO, mostrando os mais recentes lançamentos em 
termos de hardware, software e publicações especializadas. Maiores in- 
formações podem ser obtidas pelo telefone (021) 290-3222, ramais 214 
e 248 ou (021) 270-2438. 





Monitores de 
todas as cores 


A Computique acaba de re- 
ceber as primeiras unidades de 


encomenda, vídeos coloridos 
padrão RGB, utilizados princi- 


monitores profissionais de vídeo 


com tubo na cor âmbar. Fabri- 
cados pela Compo do Brasil, 
esses monitores também estão 
disponíveis com fósforo azul. 
Quanto aos vídeos em fósforo 
verde, a Computique comerciali- 
za os das marcas Instrum, Com- 
po e Unitron. 

À loja também fornece, sob 
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palmente nos micros de 16 bits. 
Para os que procuram uma 
opção mais econômica, para 
aplicação sobretudo em micros 
domésticos, a Computique ofe- 
rece o televisor Telefunken de 
14”, que já vem com fósforo 
verde e adaptação para vídeo re- 
verso, selecionável no próprio 
aparelho. 








Automação comercial 
realiza 1 Congresso 





“A automação comercial virá 
e não adianta nos opormos a 
ela”'. Com essas palavras, Edson 
Ditz, Secretário Especial de In- 
formática, abriu o | Congresso 
de Automação Comercial, pro- 
movido pela ABAC, de 18 a 22 
de junho, em São Paulo. 

Mas como anda a automação 
comercial no Brasil? Segundo 
comentaram os participantes do 
encontro, ela ainda esbarra 
em muitos entraves, tais 
como a grande fatia do merca- 
do que não tem poder aquisi- 
tivo para adquirir um terminal 
de ponto de venda PVD, equipa- 
mento que veio para substituir 
as caixas registradoras. O PVD 
deve ser acoplado a um leitor 
óptico (scanner), que é instalado 
na esteira do caixa e lê os có- 
digos de barra (sinais de identi- 
ficação do produto que são 
transformados em preços). O 
problema é que esses leitores 
ópticos não são fabricados no 
Brasil e ainda não há um código 
de barras oficial no país, o que 
está previsto para breve. Outro 
grave problema é a legislação 
fiscal sobre as caixas registrado- 
ras, que é diferenciada em cada 
estado. Todos esses entraves fo- 
ram amplamente discutidos du- 
rante o Congresso. 


Mas apesar de todos os obs- 
táculos, muitas lojas e supermer- 
cados já fazem uso da automa- 
ção. No Mappim as máquinas 
registradoras já são conectadas a 
micros, podendo fornecer a nota 
fiscal de venda com a simples 
digitação do código do produto. 
Já no Makro funcionam mais ou 
menos 30 terminais de ponto de 
venda em cada loja. Esses ter- 
minais são ligados a um IBM 
4341 e processam até 10 mil no- 
tas fiscais por dia. Depois de 
emitida a nota fiscal é dado bai- 
xa no estoque referente à mer- 
cadoria vendida, e a qualquer 
hora é possível obter listagens 
do volume total de vendas e dos 
produtos que precisam ter repo- 
sição no estoque. 

No Brasil quem controla o 
mercado de terminais de ponto 
de venda é a Tecnodata, com 
dois mil terminais instalados. A 
Racimec e a Zanthus também 
estão incorporando inovações às 
caixas registradoras. Paralela- 
mente ao Congresso houve uma 
feira onde foram apresentadas as 
inovações do setor. A Casa Rio 
Prata mostrava uma caneta ele- 
trônica (light pen) e uma má- 
quina registradora acoplada a 
um scanner, importada dos Esta- 
dos Unidos. 
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Distribuidora de software 


Acaba de ser inaugurada a 
Disoft Distribuidora de Softwa- 
re S/C Ltda., que tem como ob- 
jetivo estabelecer convênios com 
software-houses e autores inde- 
pendentes de todo Brasil, para 
distribuição de sistemas e aplica- 
tivos para microcomputadores. 
A Distribuidora também pre- 
tende dar aos produtos padrões 
de acabamento, embalagem e 
confiabilidade para sua comer- 
cialização. A distribuição será 
feita somente a lojistas, acom- 


panhada de material promocio- 
nal e do apoio necessário, para 
que a venda de software estimu- 
le a venda de hardware e supri- 
mentos. 

A Disoft — que fica na Av. 
Brigadeiro Faria Lima, 1664 — 
4º andar, tel.: (011) 813-0497, 
São Paulo — já tem disponíveis 
sistemas de Controle de Esto- 
que, Gestão de Condomínios, 
Controle Financeiro de Obras, 
Mala Direta e Faturamento de 
Leasing, entre outros. 





Atualização profissional 





Análise Comparativa dos Mi- 
crocomputadores é o título do 
seminário que o professor Em- 
manuel Lopes Passos vai minis- 
trar no IBAM de 15 a 17 de 
agosto, destinado a técnicos e 
gerentes da área de computação 
envolvidos com o planejamento 
e instalação de micros na em- 
presa. E entre 20 e 21 de agos- 
to, o IBAM realiza, para geren- 
tes e analistas de sistemas e de 
suporte e coordenadores de pro- 
jetos na área de teleprocessa- 
mento, o seminário Automação 
de Escritórios, sob a responsa- 
bilidade de Evandro Barreira Mi- 
let. O custo desses seminários, 
que incluem ainda Informática 
Distribuíida (23 e 24 de agosto) 
e Marketing Interno do CPD (29 
a 31 de agosto) fica entre Cr$ 
400 e Cr$ 600 mil. 


O IBAM vai promover, ainda, 
o ll Curso de Atualização em 
Análise de Sistemas. Com nível 
de pós-graduação latu sensu, O 
curso tem cerca de dois meses e 
meio de duração (20/08 a 08/11) 
e seu custo deverá ficar por vol- 
ta dos Cr$ 200 mil mensais. Os 
principais temas abordados são a 
Atualização Metodológica, O Es- 
tado da Arte da Tecnologia de 
Informática e Atualização Ge- 
rencial, estando ainda previstos 
seminários nas áreas de Automa- 
ção Industrial/Robótica, Auto- 
mação de Escritórios, Informa- 
tização da Sociedade, O Profis- 
sional de Informática e A Po- 
lítica de Informática no Brasil. 
Maiores informações na sede do 
IBAM, no seguinte endereço: 
Largo do IBAM, nº 1, Botafo- 
go, CEP 22282, tel.: (0.1) 266- 
6622, Rio de Janeiro — RJ. 








Super 700, o novo 
micro da Prológica 


A Prológica está lançando o 
Super 700, micrc de 8 bits, 
compatível com os Sistemas 600 
e 700, podendo, assim, utilizar 
todo o software já desenvolvido 
para estes micros. 

O Super 700 tem quatro mó- 
dulos: UCP, Vídeo, teclado e 
fonte de alimentação e prevê 
placas de expansão para conec- 
tar periféricos (impressora, plot- 
ter, modem). O equipamento 
possui quatro microprocessado- 
res, três Z80A, sendo que o pri- 
meiro é o gerenciador do siste- 
ma e acessa 64KB de memória 
RAM, controla as duas portas 
RS 232 e 3 slots para expan- 
sões; o segundo controla as uni- 
dades de disco flexivel e rígido e 
tem 2KB de memória RAM e 8 





STRINGS 





KB de EPROM; o terceiro con- 
trola vídeo e teclado com 10 KB 
de memória RAM. O quarto mi- 
croprocessador é um Intel 8035, 
que está no teclado e realiza a 
leitura, decodificação e trans- 
missão de dados. O teclado pos- 
sui 103 teclas, 65 alfanuméricas, 
14 teclas para operações arit- 
méticas, cinco para posiciona- 
mento do cursor, 15 de função 
e quatro especiais. O vídeo é de 
12 polegadas, com capacidade 
para 80 colunas e 27 linhas, fós- 
foro verde, 4 KB de memória 
RAM estática (armazena até 
duas páginas). O Super 700 es- 
creve em português, japonés, 
russo e grego e reproduz os mais 
sofisticados símbolos matemáti- 
cos. 


* Atendendo a pedidos de usuários, a Prológica está oferecendo o CP- 
500 com nova cor de gabinete: cinza escuro. * A Prodesp — Cia. de 
Processamento de Dados do Estado de São Paulo tem novos presidente 
e diretor administrativo financeiro, respectivamente, os engenheiros 
Egydio Bianchi e José Luis Ricca. X Após nomear 15 revendedores em 
todo o país para comercializar os micros Caçula e Caçula Dual, a Danvic 
inaugurou recentemente a sua primeira filial, localizada em Porto Alegre 
e administrada pela Datasystems. * Souza's Computer Center está aten- 
dendo em novas instalações, na Av. Domingos Ferreira, 2965, Boa Via- 
gem, Recife. * Softacervo é um clube para crianças e adolescentes que 
têm por objetivo a troca de programas prontos para rodar (jogos, educa- 
tivos etc.). Os interessados em se associarem devem escrever para a Rua 
Pardal, 558, Vila Pde Manuel da Nóbrega, CEP 13100, Campinas — SP. 
X A Microshop oferece treinamento e assistência na implantação do Link 
727. Para maiores informações, entrar em contato com o Sr. Carlos pelo 
tel.: (011) 853-9288. x Cr$ 1 milhão 500 mil é quanto a SUCESU vai 
dar para os ganhadores das três categorias estabelecidas pelo Prêmio 
Imprensa do Informática 84: Informação Especializada, Reportagem 
Geral e Matéria Especial, esta, dentro do tema do Congresso — Onde 
Estamos. Para Onde Vamos. Podem concorrer trabalhos divulgados em 
veículos impressos ou audiovisuais entre 1º de janeiro e 19 de novem- 
bro de 1984. X Já estão em funcionamento no Eldorado Plaza e Shop- 
ping Center Eldorado, em São Paulo, os primeiros terminais Credicard/ 
Visa, que permitem aos usuários desses cartões de crédito efetuarem seus 
pagamentos em apenas 40 segundos, com total segurança para o comer- 
ciante. A empresa pretende estender esses terminais gradativamente a 
toda a rede Eldorado, na capital paulista, bem como a outros estabele- 
cimentos filiados. X A SEI acaba de homologar o PC 2001, micro de 16 
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bits compatível com IBM-PC e fabricado pela Microtec. Com a homolo- 
gação, o equipamento poderá ser vendido a instituições governamentais 
e ser financiado através do Finame. x Basketball, Auto Racing, Space 
Armada, Tron Deadly Discs e Rerversi são os novos jogos que a Digi- 
play está colocando no mercado para o videogame Intellivision. Até 
outubro, a empresa pretende colocar no mercado 14 novos cartuchos, 
perfazendo um total de 30 títulos. + A Cobra — Computadores e Siste- 
mas Brasileiros S.A. divulgou o seu mais recente balanço, em que apre- 
senta um resultado de Cr$ 9,8 biihões. As vendas cresceram 30% em re- 
lação ao exercício anterior, enquanto'o faturamento global-atingiu a ci- 
fra dos Cr$ 71,4 bilhões. k Inaugurada recentemente, a Skill-Informática 
tem como objetivo fornecer programas conversacionais para pessoas 
leigas em programação. Representante da linha norte-americana de soft- 
ware Star, a empresa dispõe, entre Dutros, de programas de matriz de 
cálculo, banco de dados e processacor de textos. A Kristian Eletrôni- 
ca Ltda. colocou no mercado seis novas fitas com jogos para o TK-2000 
Color — Gobbler, Space Attack, Operação Perigo, Desafio Fatal, Corri- 
da Maluca e Contra-Ataque —, além do livro Os 40 Melhores Jogos para 
seu TK/CP 200 e Sinclair. A Kristian, aliás, já está funcionando em seu 
novo endereço: Rua Gonzaga Bastos, 112, Tijuca, CEP 20541, Rio de 
Janeiro — RJ, tel.: (021) 268-8249. 4X Embratel e Abicomp divulgaram 
dia 29 de junho as conclusões do grupo de trabalho que definiu o pro- 
tocolo de comunicação entre conversores BSC-3/X.25, para acesso à 
Renpac. Os técnicos da Abicomp estudam agora protocolos para inter- 
ligar conversores BSC-1/X.25 e entre computador e PAD (Packet 
Assembler-Disassembler), este último para acesso de equipamentos 


assíncronos, compatíveis com teletipo. Ea 
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5º ENESI mostra tendência 
mundial da Informática 


Até o final deste ano deverão estar con- 
cluídos os trabalhos da Comissão de Estudo 
estabelecida pela Associação Brasileira de 
Normas Técnicas — ABNT com o objetivo 
de definir um conjunto padrão de caracte- 
res comum a toda a indústria e que permiti- 
rá o intercâmbio de informações entre os 
diferentes equipamentos disponíveis no mer- 
cado, mediante um nível mínimo de compa- 
tibilidade entre eles. 


Para atingir tal objetivo, comenta Frede- 
ric do Couto, coordenador da comissão e 
representante da Abicomp, há vários proble- 
mas a resolver. Em primeiro lugar, é preciso 
garantir a compatibilidade da norma com o 
que existe não só no mercado interno, como 
também no exterior (“não podemos ser uma 
ilha”), e sem perder de vista os desenvolvi- 
mentos tecnológicos já em curso ou ainda 
por vir. 

Outro problema a solucionar é que a 
norma internacional seguida no Brasil — o 
padrão ASCII (American Standard Code for 
Information Interchange) — apresenta uma 
série de ambigúidades (ex.: caracteres que 
podem ter mais de uma função determina- 
da). Isso, segundo Couto, deve ser elimina- 
do, posto que inevitavelmente conduz à 
curiosa situação de todos os fabricantes se- 
guirem a mesma norma e seus equipamen- 
tos não serem compatíveis entre si. É por 
isso, explica ele, que os conjuntos de carac- 
teres não batem no Brasil. 

A norma ASClII, prossegue Frederic do 





ABNT estuda compatibilidade 
dos equipamentos nacionais 


Couto, traz ainda uma dificuldade que diz 
respeito à sua própria abrangência: tem 83 
padrões, e ela própria diz que nenhum ter- 
minal pode reunir todas as características 
previstas, uma vez que têm por finalidade 
cobrir uma gama muito ampla de máquinas, 
tais como terminais de vídeo, impressoras, 
fotocompositoras etc. No Brasil, acrescenta 
o coordenador da comissão, está-se procu- 
rando fazer com que as empresas digam cla- 
ramente qual é o seu conjunto de facilida- 
des, classificando-os segundo níveis. 

Em termos práticos, a norma a ser esta- 
belecida pela ABNT — em comum acordo 
com a indústria, o governo e demais setores 
interessados — consiste na utilização de dois 
subconjuntos de caracteres, um básico (o 
ASCII, depurado de suas ambigúidades) e 
um complementar que deverá incluir, além 
do Português, símbolos específicos de vá- 
rias línguas culturalmente vizinhas, como os 
pontos de exclamação e interrogação in- 
vertidos do Espanhol, o s forte do Alemão, 
e o oe contraído do Francês, 


Sob o ponto de vista técnico, exemplifi- 
ca Couto, isso é plenamente viável e já foi 
feito no Japão para acondicionar os carac- 
teres ideográficos da língua japonesa. Mas 
as dificuldades a serem vencidas para que se 
materialize uma norma brasileira não se 
prendem apenas aos laboratórios de pesqui- 
sas e às linhas de montagem. Conforme re- 
conhece o representante da Abicomp, “um 
padrão sempre incomoda um pouco a to- 








dos, sempre fere interesses”. Portanto, "'pa- 
ra se ter um padrão, é preciso ter em vista o 
interesse maior do país, administrando-se os 
casos particulares”. 

A comissão já solicitou à comunidade 
uma proposta de teclado, enquanto que o 
Centro de Tecnologia para a Informática — 
CTI está elaborando um método de ensaio 
que permitirá verificar, de maneira clara e 
objetiva, se os equipamentos e, principal- 
mente, as configurações que integram (“to- 
mado de maneira isolada, cada elemento 
pode respeitar o padrão, mas não o sistema 
como um todo”'), enquadram-se nas normas 
estabelecidas. 

Uma coisa que Couto faz questão de res- 
saltar é o caráter aberto dos trabalhos da co- 
missão que coordena. “Nada vai ser empur- 
rado goela abaixo””, enfatiza ele com o bom 
humor que lhe é característico, ressaltando 
que os assuntos serão amplamente debati- 
dos e que os documentos básicos já difun- 
didos pela ABNT “'não são um produto aca- 
bado. Eles têm lugar para muitos pontos de 
discussão”. 

A comissão, denominada Comunicação 
Homem-Máquina e Portabilidade de Arqui- 
vos e Dados, pertence ao Subcomitê de 
Hardware do Comitê Brasileiro de Compu- 
tadores e Processamento de Dados — COBI, 
da ABNT, Frederic do Couto faloua MICRO 
SISTEMAS durante a reunião realizada dia 
19 de junho, estando o próximo encontro 
marcado para 14 de agosto no mesmo local: 
a sede do COBI, no Rio de Janeiro. 






A Tendência Mundial dos Negócios de Informática. Este é o tema 
central do 5º ENESI — Encontro Nacional das Empresas de Serviços de 
Informática, a realizar-se no Hotel Nacional-Rio, de 24 a 26 de setem- 
bro próximo, numa iniciativa da Associação Brasileira das Empresas de 
Serviços de Informática — Assespro, com patrocínio da Embratel e 
apoio da Secretaria Especial de Informática — SEI e da Confederação 
das Associações Comerciais do Brasil. 

O panorama internacional ficará a cargo de empresas especializadas 
dos Estados Unidos, Japão e França que, mediante roteiros de pergun- 
tas pré-estabelecidas pela Assespro, irão mostrar às suas congêneres na- 
cionais — que operam nas áreas de bureau, software e system-houses, 
consultoria, treinamento e comercialização — as tendências observadas 
nos países líderes no emprego da Informática, fornecendo aos empre- 
sários brasileiros subsídios para a orientação dos seus negócios. 

Com base nos depoimentos expostos, o 5º ENESI procurará anali- 
sar as informações obtidas, visando o fortalecimento do setor nacional 
de serviços e de software. Fora isso, o encontro tem como objetivos 
concretizar acordos e convênios, envolvendo o setor de serviços, órgãos 
governamentais, e outros segmentos da comunidade de Informática, 
além de estimular a troca de experiências e informações entre os parti- 
cipantes, em especial no âmbito do empresariado nacional. 

Além de contar com a presença de representantes de Portugal, Es- 
panha e países da América Latina e África, o 5º ENESI apresenta duas 
importantes novidades: a instalação de uma Bolsa de Negócios destinada 
a incentivar a efetivação de contratos e transações comerciais durante o 
evento e a exposição de equipamentos, cuja finalidade é divulgar novas 
máquinas, suprimentos e técnicas disponíveis para as empresas nacio- 
nais de serviços e software. Os interessados em participar do evento po- 
derão inscrever-se ou obter maiores informações junto à Assespro Na- 
cional, Av. Rio Branco, 45 — sl. 1405, CEP 20090, tel.: (021) 253- 
1680, Rio de Janeiro — RJ. 
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Teclado 


Para facilitar o uso dos mi- 
crocomputadores da linha Sin- 
clair em atividades profissionais, 
a Speed Eletro Eletrônica está 
lançando um teclado profissio- 
nal tipo máquina de escrever 
com gabinete em fiberglass. Esse 
conjunto é vendido em três mo- 
delos diferentes: SP-400; SP- 
230; e SP-160. O SP-400 é com- 
posto por teclado e gabinete 
dimensionado para comportar o 
micro, expansão e fonte de ali- 
mentação, e sobre ele pode ser 





para Sinclair 


colocado um terminal de vídeo 
de até 12 polegadas. O segundo 
modelo é composto por teclado 
com gabinete próprio, ligado ao 
micro através de cabo multivias; 
e o SP-160 é composto por gabi- 
nete e teclado numérico de 12 
teclas. A empresa comercializa 
também os componentes desses- 
produtos para que o usuário for- 
me o conjunto de acordo com 
suas necessidades. A Speed fica 
na Rua |, nº 395, em Conta- 
gem, MG,Tel. (011) 463-3171. 
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A Datalógica Transnational 
está lançando no Brasil o dBA- 
SE Ill, gerenciador de banco de 
dados relacional para micros de 
16 bits e de maior porte. O novo 
sistema permite ao usuário en- 
trar, manipular e alterar grande 
volume de dados, além de desen- 
volver programas de aplicação 
personalizados. 


O dBASE Ill tem como ca- 
racterísticas principais a capaci- 
dade de armazenar até 2 bilhões 
de registros por arquivo, com 
128 campos por arquivo e o uso 
de até 10 arquivos abertos si- 
multaneamente. Esse novo sis- 
tema, que trabalha com vídeo 
colorido, será inicialmente co- 
mercializado no mercado brasi- 
leiro por 200 ORTN. 


A empresa também está lan- 
cando uma nova versão do dBA- 
SE Il, agora dBASE 2.41. 0 no- 
vo software permite fazer cálcu- 
los com uma precisão numérica 
de até 16 dígitos, conta com 
buffer de teclado, spoo/ de im- 
pressão e opcional de transimis- 
são de arquivos para diferentes 
modelos de micros, em modo 
local ou remoto. Os usuários do 
dBASE Il que quiserem adqui- 
rir a nova versão, pagarão ape- 
nas o equivalente a 10% do pre- 
ço original, pela troca. 


Constituído ao mesmo tem- 
po de um gerenciador de bancos 
de dados relacional, de uma lin- 
guagem de programação e de um 
conjunto de utilitários, o dBA- 
SE Il, apesar de sua complexida- 
de a nível interno, é bastante 
simples de operar, não exigindo 
do usuário conhecimentos pré- 
vios de programação. 

A mecânica de armazena- 
mento e manipulação dos dados 
é automaticamente feita pelo 
sistema, orientado pelo usuário 





mediante um conjunto de co- 
mandos de fácil aprendizado e 
utilização, tais como CREATE, 
para criar arquivos, DISPLAY, 
para consultar algum ou todos 
os dados, APPEND, que permite 
acrescentar dados a um arqui- 
vo, FIND (pesquisa de dados) 
etc. 

Gerenciador de banco de da- 
dos mais vendido em todo o 
mundo, com 200 mil cópias ins- 
taladas, este sistema pode traba- 
lhar com praticamente todos os 
microcomputadores existentes, 
uma vez que roda sob os siste- 
mas operacionais CP/M-80 e 86, 
e MS-DOS. Suas necessidades 
mínimas de memória RAM são 
as seguintes: 48 Kb para a maio- 
ria dos micros; 56 Kb para os 
compatíveis com o Apple e 128 
Kb para os equipamentos basea- 
dos nos microprocessadores In- 
tel 8086 e 8088. 

Desenvolvido pela Ashton 
Tate, o dBASE Il, assim como o 
sistema de automação de escri- 
tórios Friday, é comercializado 
no Brasil pela Datalógica Trans- 
national, representante exclusiva 
da empresa norte-americana. Em 
vista da existência de um sig- 
nificativo número de cópias não 
autorizadas do dBASE Il já em 
uso no mercado brasileiro, a Da- 
talógica está oferecendo aos 
usuários desses softwares a re- 
gularização de suas cópias, com 
o recebimento de um número 
serial autorizado que garantirá 
ao usuário o treinamento, supor- 
te técnico e todas as atualiza- 
ções feitas pela Ashton Tate. 
Para isso, basta entrar em con- 
tato com a Datalógica: Av. Pau- 
lista, 2028 — 2º andar, São Pau- 
lo — SP, tel.: (011) 283-0355; 
Av. Rio Branco, 177 — 15º an- 
dar, Rio de Janeiro — RJ, tel.: 
(021) 221-2155. 








Automação bancária 
tem Feira no Anhembi 


De 13 a 17 de agosto, no Palácio das Convenções do Anhembi, será 
realizada a V Feira Latino Americana de Equipamentos de Automação 
Bancária. Essa feira tem o patrocínio da Federação Latino Americana 
de Bancos, Federação Nacional de Bancos e Federação Brasileira das 
Associações de Bancos e conta com o apoio do Centro Nacional de Au- 
tomação Bancária. A promoção e organização ficam por conta da Guaz- 
zelli Associados Feiras e Promoções. 

Para essa feira espera-se a participação de 400 delegados internacio- 
nais, representantes de entidades financeiras. Em paralelo à Feira será 
realizado o X Congresso Latino Americano de Automação Bancária, 
com o objetivo de promover a integração entre banqueiros nacionais e 
internacionais, através da troca de informações técnico-científicas da 


área. 


Inforamazônia 84, 
em Belém do Pará 


Informazônia, | Simpósio e 
| Exposição de Informática na 
Amazônia, será realizado de 27 a 
31 de agosto em Belém do Pará, 
no Campus da Universidade 
Federal do Pará, com patrocínio 
da SEI, UfFPa e apoio da 
SUDAM e BASA. 

O Informazônia 84 tem co- 
mo finalidade mostrar aos em- 
presários e organismos governa- 
mentais o que há de mais mo- 
derno em produtos para proces- 
samento de dados, telecomuni- 


cações, microfilmagem, supri- 
mentos e materiais para geren- 
ciamento da informação. Parale- 
lamente serão promovidos cinco 
cursos em horário noturno: 
Introdução aos Sistemas Micro- 
gráficos, Programação Estrutura- 
da em COBOL, Custos em Pro- 
cessamento de Dados, Informá- 
tica para Usuários, Informática e 
Medicina. O Informazônia está 
sendo promovido pela SUCESU, 
maiores informações pelo tel.: 
(091) 225-3060. 


Assessoria a empresas 
em Campina Grande 


A Data Shopping S/C Ltda., de Campina Grande, Paraíba, presta ser- 
viços de desenvolvimento de software para micros da linha Apple ou 
CP/M, assessoria em processamento de dados, cursos de introdução ao 
BASIC e de BASIC avançado e treinamento em computação dirigido às 
empresas. 

Contando entre seus clientes com o S. A. Diário de Borborema, Cur- 
tume Antonio Villarim S.A., Manoel Ferreira Comércio S.A., Felinto 
Importadora & Exportadora Ltda., Atlântida Imobiliária Ltda. e a rede 
de supermercados Celino Loureiro & Cia., a Data Shopping já tem de- 
senvolvidos e implantados os seguintes sistemas: Contas a Pagar, Contas a 
Receber, Folha de Pagamento (mensal ou semanal), Controle de Pedi- 
dos, Faturamento e Emissão de Duplicatas, Controle de Estoque e Con- 
tabilidade. A empresa fica na Rua Maciel Pinheiro, 365 — 19 andar, 


salas 1e 2. 


O 16 bits da Edisa 


A configuração máxima do 
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A empresa Madison S/A Importação e Comércio, com sede 


+ 


A Edisa obteve aprovação da 


em Curitiba à Rua Marechal Deodoro, 311/315. Tel.: (041) 
224-3422 e filiais em Londrina, Arapongas, Maringá, Rolândia e 
Joinville, remeteu-nos a seguinte tabela de preços em ORTN rela- 
tiva aos equipamentos que comercializa: 


Maxxi (16kK) - 90,53 
HP-85B (16 K) — 783,12 
CP 300 (16 K) - 58,62 


CP 500 (48 K) — 150,13 (sem drive) 
225,58 (um drive) 
356,10 (dois drives) 


TK8B3 ( 2kK)- 19,60 
TK 85 (16kK)—- 33,18 

(48 K) —- 55,06 
TK 2000 (48K) — 75,13 
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SEI para a industrialização do 
E D-680, microcomputador de 
16 bits baseado no microproces- 
sador Motorola 68000L 10. O 
lançamento do micro está pre- 
visto para novembro próximo e 
sua comercialização para o pri- 
meiro semestre de 1985. 

O ED-680 tem como confi- 
guração básica UCP de 512 Kby- 
tes de memória RAM, um ter- 
minal de vídeo, uma unidade de 
disco Winchester de 80 MB, uma 
unidade de fita Streamer de 1/4" 
de 20 MB e uma impressora de 
200 CPS. 


equipamento caracteriza-se por 
UCP de 2 MB de memória RAM, 
unidades de disco de até 768 
MB, oito fitas de 72 MB, contro- 
ladores de comunicação de 8 li- 
nhas a 9600 bps cada e supor- 
tando até 64 terminais, além de 
duas impressoras de 600 Ipm ou 
uma de 1500 Ipm. 


Quanto ao software, serão 
utilizados o EDIX, nacional 
compatível com o UNIX, e o 
MUMPS em cooperação com a 
Biodata, system-house do Rio 
de Janeiro. ” 

[= 
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O comando 


Deo 


tratamento 
de valores 
numéricos 





odo programa, seja ele em 
Assembler ou em BASIC, 
contém uma série de 


manipulações com valores 
numéricos na forma de operações 
matemáticas, tais como soma, subtração, 
multiplicação, potenciação etc. Em 
linguagem de alto nível, essas 
manipulações podem ter uma estrutura 
funcional direta, ou seja, 
X=A+5*(4/Y)**7—-SQR(B+9) por 
exemplo. No caso de linguagens de 
baixo nível, no entanto, uma expressão 
como esta demandaria uma estruturação 
de registradores bastante complexa. 
Num outro extremo, temos as strings 
ou caracteres de texto (mensagens) que, 
em Assembler, podem constituir-se 
numa grande dor de cabeça para o 
programador, pois elas podem estar 
inseridas junto a n outras coisas, e às 
vezes uma correção gramatical pode 
demorar horas até que O erro seja 
localizado. 
Esses serão os dois assuntos tratados 
este mês, e para que possamos dar 
partida em nossa discussão será 
necessário ter o MICRO BUG na 
memória do micro, seguindo o 
procedimento padrão. 


LS 


OS VALORES NUMÉRICOS 


Em linguagem de máquina, a operação 
com valores numéricos deve ser sempre 
cercada dos maiores cuidados e rigores, 
pois basta um só descuido para que todo 
o trabalho vá por água abaixo. O 
rincipal problema diz respeito aos 
imites de valores do byte, ou seja, 
255 para um byte e 65535 para dois 
bytes (255*256+255). 
O que acontece quando um desses dois 
limites é superado vai depender muito 
da organização e do cuidado na 
programação. Em linguagem de máquina, 
um evento desse porte é documentado 
por um ou dois bits da flag F. 
Vejamos dois exemplos práticos: 


1 — supondo B=45 e A=22, o resultado 
da operação ADD A,B (em BASIC 
corresponderia a LET A=A+B) seria o 
Acumulador A valendo 67; 

2 — supondo B=185 e A=76, o resultado 
de ADD A não seria A=261 esim A=S5 
(dir íamos, a grosso modo, que o 
Acumulador deu uma volta completa, 
pois 5=261-256). 

Essa característica do Assembler corre o 


risco de ser facilmente esquecida, e 
quando isso acontece os resultados das 
operações matemáticas acabam não 
correspondendo ao desejado. Por outro 
lado, não basta que os cuidados com a 
segurança operacional sejam respeitados. 
Existe um outro problema a ser 
superado, que é a representação gráfica 
de um valor qualquer na tela de vídeo. 
Imaginemos um registrador com um 
valor aleatório (158, por exemplo). 
Para representá-lo no vídeo 
precisaríamos de três caracteres (1,5 e 
8). No entanto, não podemos 
simplesmente enviar ao arquivo de 
imagens estes valores, pois o resultado 
seria a impressão de três caracteres 
gráficos isolados (acompanhe pela tabela 
de códigos e caracteres do manual do 
micro). Teremos que traduzir esses 
valores para Os caracteres 
correspondentes, ou seja, 29, 33 e 36. 
Mas, se o registrador que possui o valor 
158 é composto de um único byte, 
como saber quais caracteres usar para a 
impressão, no vídeo, de tal valor? Aí 
está um bom problema para o 
programador Assembler... 

No MICRO BUG temos várias 
ocorrências de valores numéricos. Uma 


MICRO SISTEMAS, agosto/84 












rotina GVALDE 





7A9E Of 03 15 LD BC,1503 




















































Z7AA1 CD FS 08 CALL O8BFS5 
Z7AA4 2A OE 40 LD HL,(400E) 
ZAA7 44 00 00 LD DE,0000 
ZAAA TE LD A,(HL) 
7AAB FE OD CP OD 

7AAD 28 2D JR Z,7ADC 
ZAAF 00 NOP 

ZABO TE LD A,(HL) 
7AB1 B7 OR A 

7AB2 C8 RET Z 

ZAB3 FE ÍA CP 1A 

7ABS CB RET Z 

7AB6 Dó 1€ SUB 1€ 
7ABB 38 10 JR C,7ACA 
ZABA FE 40 CP 40 

ZABC 30 OC JR NC,7ACA 
7ABE EB EX DE,HL 
ZABF 06 04 LO B,04 
ZACÍ 2 ADD HL,HL 
7AC2 40 FD DJNZ 7ACÍ 
ZAC4 4F LD C,A 
ZACS 09 ADD HL,BC 
ZAC6 EB EX DE,HL 
7AC7 23 INC HL 
7ACB 18 E6 JR ZAAF 
ZACA CD Ci 7 CALL 78CÍ 


Z7ZACD 


A? JR ZABS 


ZADC 23 INC HL 
ZADD ZE LD A,(HL) 
ZADE B7 OR A 

ZADF C8 RET Z 
78E0 FE 4A CP 1A 
7AE2 CB RET Z 


Z7AE3 Dó 1C SUB 1C 
70ES 38 E3 JR C,7ACA 
7AE7 FE OA CP OA 

Z7AE9 30 DF JR NC,7ACA 
70EB ES PUSH HL 
70EC FS PUSH AF 
Z7AED 24 00 00 LD HL,0000 
ZAFO SE OA LD A,0A 
7AF2 04 08 LD B,08 
7AF4 29 ADD HL,HL 
7AFS 47 RLA 

ZAF6 30 04 JR NC,7ZAF9 
Z7AF8 49 ADD HL,DE 
78F9 40 F9 DJNZ ZAF4 
ZAFB Fi POP AF 
Z7AFC 4F LD C,A 
ZAFD 09 ADD HL,BC 
ZAFE EB EX DE,HL 
ZAFF Esí POP HL 
7B00 4148 DA JR ZADC 


das mais importantes é a impressão de 
um endereço de memória e seu 
conteúdo. Essa impressão pode vir na 
forma decimal (base 10) ou hexadecimal 
(base 16). Além disso, há o processo 
inverso, isto é, a partir de uma dada 
representação (em hexa ou decimal) 
calcula-se o valor binário correspondente. 
Para que essas operações sejam 
realizadas com o maior rigor, o SGM 
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Listagem 1 


(identifica um valor numerico) 


sdetermina posicao AT 21,3. 


sposicao no video. 
sinicializa par DE. 

sdet calculo dec ou hexa. 
sespecificador S. 


«calculo hexa. 
«obtem um digito. 
«retorna se for espaco. 


sretorna se for virgula. 


«valor real do digito. 
stesta validade do digito 
«na faixa de O à F. 


smultiplica o acumulado em 
“DE pela base 16. 


ssoma o produto ao digito. 


stotal final em DE. 
sproximo digito. 


“imprime DIGITO ILEGAL. 


«reset 

scalculo decimal. 
sobtem um digito. 
sretorna se for espaco. 


sretorna se for virgula. 


svalor real do digito. 
«teste validade do digito na 
sfaixa de O à 9. 


smultiplica o acumulado em 
“DE pela base 10. 


ssoma o produto ao digito. 
svalor total em DE. 


srFroximo digito. 


possui uma rotina, chamada $VALDE, 
que devolve o conteúdo do par DE com 
um valor digitado pelo operador via 
teclado. Para que SVALDE funcione 

a contento, é preciso ter o valor 
desejado na posição AT 21,3 do vídeo 
— e isso é obtido na inicialização de 
alguns comandos, como por exemplo do 
comando > M 4082. Como já vimos, 
existem alguns caracteres especiais à 
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O COMANDO D E O TRATAMENTO DE VALORES NUMÉRICOS 


rotina SENDER 





envolvidos, tais como o $ que informa a 
$VALDE se o número está numa base 
numérica diferente daquela na qual o 
SGM está ajustado (veja na edição 
tala as explicações sobre o comando 
A). 
A obtenção do valor binário é feita pela 
operação de multiplicação dígito a 
dígito da base com o par DE. Assim, 
para obter um dígito, a rotina multiplica 
o par DE pela base especificada, soma a ele 
o valor do dígito e repete essa operação 
até achar um espaço ou vírgula (usados 
como delimitador de campo). Na 
listagem 1 temos toda a rotina 
S$VALDE e suas fases explicadas. 
Note, nesta listagem, como a 
multiplicação na base 10 é feita através 
de somas sucessivas, enquanto que na 
base 16 o resultado é obtido com 
muito mais simplicidade, somando um 
número a si mesmo quatro vezes. Este é 
também um dos motivos da preferência 
pela base hexadecimal quando se 
programa em Assembler. Note ainda que 
os endereços 7AAD, 7AAE e 7AAF 
contêm um JUMP relativo e um byte 
vago para a mudança de especificação 
do comando A. 
O próximo passo a ser estudado é, no 
sentido inverso, imprimir um valor 
binário na sua forma decimal ou 
hexadecimal, e para tanto usaremos a 
rotina $ ENDER que efetua as divisões 
do valor pela base correspondente. 
Nesse ponto vamos considerar um 
importante fator que é a velocidade de 
execussão do comando que estiver 
utilizando $ENDER, pois se ela for 
baixa a rotina antes de produzir a 
impressão do valor fará um loop de 
alguns centésimos de segundo. 
Note, pela listagem 2, que o processo de 
impressão de um valor decimal é 
extremamente simples, ao passo que 
para imprimir um número decimal 
tivemos que lançar mão de uma 
sub-rotina do sistema operacional do 
micro. 
Isso foi feito por vários motivos, sendo 
e o principal diz respeito à velocidade 
nal de impressão, uma vez que, usando 
as rotinas de ponto flutuante do micro, 
o trabalho de programação seria muito 
mais direto, porém a uma velocidade 
por demais lenta. Com o uso das rotinas 
de ponto flutuante não teríamos as duas 
velocidades do comando M quando este 
estivesse imprimindo endereços 
decimais. No final do MICRO BUG 
explicaremos como utilizar tais rotinas 
quando a velocidade não for fator 
primordial. 
Outro ponto a ser considerado diz 
respeito à rotina SBYTE, a qual 
imprime um byte em hexadecimal. Ela 
é utilizada simultaneamente para a 
impressão do logotipo MICRO BUG, 
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7B02 
7805 
7B07 
7BOA 
7BOC 
7BOE 
7BOF 
7Bi2 
7813 
7B16 
7817 
7B18 
7B19 
7B1A 
7B1B 
7B1C 
7BíE 
7B21 
7B24 
7B27 
7B2A 
7B2D 
7B30 
7B32 
7B35 
7B36 
7B39 
7B3C 
7B3E 
7B3F 
7B40 
7B41 
7B43 
7845 
7B46 
7847 
7B49 
7B4A 





3Á 
CB 
Cc 
cB 
eo 
7C 
CD 
7D 
CD 
AF 
D7 
D7 
D7 
Cc? 
ES 
1E 
041 
CD 
04 
CD 
01 
CD 
OE 
CD 
7D 
CD 
SA 
06 
ZE 
05 
eB 
FE 
20 
AF 
D7 
10 
EÍí 
C9? 





26 
9F 
B7 
97 
OD 


3E 


3E 


76 
F9 


FD 





79 


78 


78 


78 


DB 


FC 
07 
FF 
07 


07 


07 
an 


(imprime endereco de memoria) 


LD A,(7926) 
BIT 3,4 
CALL Z,78B 
BIT 2,A 

JR NZ,7BíB 
LD A,H 
CALL 783E 
LD A,L 
CALL 783E 
XOR A 

RST 410 

RST 40 

RST 40 

RET 

PUSH HL 

LD E,FF 

LD BC,DBFO 
CALL O7E4 
LD BC,FC18B 
CALL 07Eá 
LD BC,FF9C 
CALL 07Eí 
LD C,F6 
CALL O7EÍ 
LD A,L 
CALL 07EB 
LD HL,(400E) 
LD B,09 

LD A,(HL) 
DEC B 

DEC HL 

CP 76 

JR NZ,7B3E 
XOR A 

RST 40 
DJNZ 7B46 
POP HL 

RET 








sdetermina velocidade de 
s impressao. 







sdetermina base do endereco. 







;s imprime endereco em hexa. 








simprime 3 espacos. 






sretorna. 
s imprime ender em decimal. 







simprime dezena de milhar. 







simprime milhar. 






s imprime centena. 






s imprime dezena. 






simprime unidade 






sproduz tabulacao 
















sretorna. 








COMANDO D 
7946 27 
7D27 AF 
7D28 D7 
7D29 CD 
7D2C B7 
7DeD 28 
7D2F CD 
7D32 EB 
7D33 22 
7D36 CD 
7D39 CD 
7D3C CD 
7D3F  B7 
7D40 C8B 
7D41 FE 
7D43 28 
7D4S FE 
7D47 CC 
7D4A 48 


(display memoria) 


7D 


Je 


07 
VE 


eF 
60 
DD 
D3 


7 À 


ZA 


79 
78 
7C 
78 


7D 


def 7D27 


XOR A 
RST 40 

CALL 7A52 
OR A 

JR Z,7D36 
CALL ZA9E 
EX DE,HL 

LD (792F),HL 
CALL 7860 
CALL 7CDD 
CALL 78D3 
OR A 

RET Z 

CP 30 

JR Z,7D3 
CP 2F 

CALL Z,7D44 
JR 7D3C. 


scomando D. 

s imprime um espaco apos D. 
schama SCURSOR para endereco 
sinicial. 

srecupera ultimo endereco. 
scalcula endereco digitado. 
sguarda endereco em 792F. 
sum scroll para cima. 
simprime linha e avanca 8. 
sespera tecla pressionada. 
sreset se for BREAK. 
sidentifica avanco. 
sidentifica retrocesso. 


sreinicia processo. 
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LANÇAMENTO 


Sistó lise 


A O projeto MICROBUG, desenvolvido pela equipe do CPD de MICRO 





SISTEMAS, foi concebido de forma a auxiliar os usuários de micros da 

linha Sinclair no entendimento e exploração dos recursos da máquina. Sua 

construção, passo a passo nas páginas de MS, tem tido importância definitiva no 

sentido de iniciar e desenvolver os usuários na programação em linguagem de máquina. 

Devido ao enorme sucesso e repercussão do MICROBUG, refletidos nas diversas cartas que temos 

recebido, a ATI EDITORA LTDA. optou por oferecer a seus leitores a versão integral do MICROBUG. Para tal, 

foi contratado um estúdio especializado de forma a garantir um padrão de gravação profissional e uma emba- 

lagem selada e inviolável que certamente você irá apreciar. Como a documentação do MICROBUG começou a 

ser publicada a partir da edição de MS .n9 31, oferecemos àqueles que adquirirem à fita A OPORTUNIDA- 

DE DE COMPRAR OS EXEMPLARES QUE PORVENTURA NÃO POSSUAM POR UM PREÇO ESPECIAL. 

Aproveite esta oportunidade e usufrua, desde já, deste incrível programa em sua forma integral. Preencha o 
quadro acima e mande logo seu pedido. TIRAGEM LIMITADA. 





usando para tanto uma forma de stack 
compactada, ou seja, um único byte 
representa dois caracteres gráficos ao 
mesmo tempo. Este assunto também 
veremos com mais detalhes numa 
próxima oportunidade, pois o 
importante no momento é fixar, através 
da análise das listagens 1 e 2,0s 


rotina SAáVND (avanco do COMANDO D) 











7CDD 2à 2F 79 LD HL,(792F) srecupera end. arquivado. 
7CEO ES PUSH HL 








































processos de obtenção e impressão de 7CE1 Of 08 00 LD BC,0008 s incrementa 8. 
valores numéricos em linguagem de e o ADD Hi., BC | 
máquina /LES ce 2&F 79 LD <792F),HL sarquiva novo endereco. 
AAA, 7CEB Es POP HL 
Z7CE9 CD 60 78 CALL 7860 sscroll para cima. 
7CEC CD O2 7B CALL 7802 s imprime endereco. 
7CEF JA 26 79 LD A,(7926) sidentifica tipo impressao. 
O COMANDO D 7CF2 06 08 LD B,08 
7CF4 CB 4F BIT 1,4 
7CFó 20 DA JR NZ,7DO2 
O comando D (display ) é um comando 7CF8B 7E LD A,(HL) s imprime em hexadecimal. 
usado para pesquisa em blocos 7CF9 CD 3E 78 CALL 783E 
Assembler. Ele permite a visualização 7CFC AF XOR A ; imprime um espaco. 
de uma linha no formato Pur me RST 40 | 
ENDEREÇO J 8 BYTES dd os - INC HL sproximo byte. 
Filo 7 10 F DJNZ 7CFB 
CONSECUTIVOS, idêntica aos blocos 7D01 C9 RET sretorna. 
comumente publicados em MICRO 7DO2 7E LD A,(<HL) simprime como caracter. 
SISTEMAS. De uma certa forma, ele e Dm: Qu pgs did ca 
4 . | , 
também pode ser usado para conferir 7007 3E 48 LD A 48 « RETRO: A 
as listagens desses tais blocos. 7D09 D7 RST 40 
Os oito bytes que o comando apresenta eta AF a A imprime dois espacos. 
podem ser impressos com seu valor em foste 44 a ia 
hexadecimal ou em caracteres gráficos. 7DOD 23 INC HL proximo byte. 
As palavras (tokens) do BASIC e os 7DOE 10 F2 DJNZ 7D02 
7DiO C9 RET sretorna. 





caracteres duplos, como <> , **,=> 
etc., são impressos como um ponto 
(.). O chaveamento dessa impressão 





é feito pelas teclas SHIFT 4. de impressão das linhas; SHIFT E para interromper este e qualquer 
Todos os recursos do comando M estão chaveia o endereço decimal/hexadecimal; comando, basta pressionar BREAK, e 
também disponíveis no comando D, K e J avançam e retrocedem em oito que SHIFT 1 funciona como RESET 
ou seja: SHIFT S chaveia a velocidade bytes. Observação: vale relembrar que, geral do sistema. 


A implementação do comando D deve 
seguir procedimento idêntico ao dos 
outros comandos, sendo que a primeira 
modificação a ser feita é na Tabela de 
Definição dos Comandos. A partir daí 
é só digitar as listagens 3, 4 e 5. Como 


Listagem 5 


rotina GRTRD (retrocesso do COMANDO D) curiosidade, após q implementação do 
| comando, dê um passeio pela memória 

7Díií eF 79 LD HL,(792F) srecupera end. da ivado. do micro, imprimindo, com caracteres, 

7Dií4 08 00 LD BC,0008 sdecrementa em 8. 

7047 AND À do endereço O ao 65535. E 

7D18 42 SBC HL,BC 

7Dí A eF 79 LD (792F) sarquiva novo endereco. 

7D1D D 79 78 CALL 7879 sscroll para baixo. 

7D20 BO LD C,BO «calcula 21 linhas acima. 

7De2 AND À 

7D23 « SBC HL,BC 

7D25 bei JR 7CEC simprime os 8B bytes. Este projeto vem sendo desenvolvido pela 


equipe do CPD de MICRO SISTEMAS, sob a 
coordenação de Renato Degiovani. 





PROCURE QUEM 26 0) 00) 0) DDT CO 4 6) DO DAT 


REALMENTE ENTENDE. 


MICROMAQ 


R. Sete de Setembro, 92 - Lj. 106 Microcomputadores, Sotware, Publicações 
Tel.: 222-6088 - Rio de Janeiro [E JSjuco El [FZ: Ta PR ONT Tt SD TETE ca sor TORO CO OA TILT E EE TITS TCIA 


UM SO LUGAR? 





PESAR E ad É dadas evsis 
WA: Ds a 
E Pi go ha É 
ali pai fo = od 
É 


ERR io E 


a OS 
ao dd é 


A Filcres faz de sua empresa o seu Show Room 





microcomputadores 





levam até você toda sua estrutura de Marketing. Conheça Ê 
os CP300 e CPbOO aliados ao alto desempenho da Impressora 


Ed 


KMBTES Sá TRS? 
ro. idos 


e io 


P5OO e na configuração exata do seu problema. 


VII voLIgA 
DE bite pod 


RE 


à Filcres oferece aos seus usuários assistência técnica 
autorizada Prológica , completa biblioteca 





” RS NIATO, RATS 3 
bo >” : ie t ps 44 





Os usuários tém o direito de criar comandos especiais para chamar suas rotinas! 
E por que não? Se o micro é TRS-80 mod. Ill, o primeiro passo já está dado... 














di j 
4" 
a 
a 4* 
b 
+ > 
4 q 
“ 
4 CY 
4 * q 
Y y 1 vt X us é 14 À 
4% 
é. x* 
ç+* 
4 + 
++ 
4% 
45 
4 
4* 


este artigo nos propomos a 
demonstrar como implemen- 
tar rotinas auxiliares nos mi- 
cros da linha TRS-80 modelo 
HI, chamando-as por intermédio de no- 
vos pseudo comandos BASIC. Impossí- 
vel? Nem tanto, basta aproveitarmos o 
vetor da rotina de erro do interpretador 
BASIC, desviando-a para as nossas roti- 
nas. Mas para isso devemos tomar todas 
as cautelas possíveis. 

Na rotina para a qual será desviada a 
rotina de erro, selecionaremos as cha- 
madas que contêm código correspon- 
dente a erro de sintaxe, devolvendo ao 
interpretador aquelas que não contêm 
esse código. Esse desvio somente pode 
ser realizado em razão da existência de 
um vetor na RAM que, ao trabalharmos 
em BASIC residente, contém determi- 
nado valor que é alterado quando utili- 
zamos BASIC Disco. 


41A6H, O VETOR 
DA ROTINA DE ERRO 





Quando o interpretador encontra um 
erro de sintaxe, imediatamente carrega o 
conteúdo do endereço 409AH (16538) 
com 02. A rotina de erro faz um JUMP 
(correspondente ao GOSUB do BASIC) 
para o endereço 41A6H (16806); depen- 
dendo dos valores encontrados, retorna 


34 


Clóvis Almeida Menezes 
Rubens Almeida Menezes 


ao interpretador BASIC ou vai para a ro- 
tina de erro do BASIC Disco. 

Na realidade, o vetor 41A6H abrange 
três endereços: 4146H, 4147He 41A48H. 
Para verificarmos o conteúdo dos mes- 
mos, podemos proceder de várias manei- 
ras diferentes, dependendo das caracte- 
rísticas do equipamento. 

Para micros sem disk drive o conteú- 
do do vetor será: 
41A6H = €9 
41A7H = 00 
41A8H = FF (ou qualquer outro valor) 

Nesta categoria temos ainda dois ca- 
sos: micros com monitor residente (por 
exemplo, o CP-500) e micros sem moni- 
tor residente (por exemplo, o JR Sysda- 
ta). No primeiro caso, o usuário deve en- 
trar no monitor e digitar D 4146, 03 
ENTER; a tela mostrará: 4146 C9 00 00. 

No segundo caso, devemos passar o 
Rar ss do monitor de hexa para deci- 
mal: 


41A6H = 16.806 
41A7H = 16.807 
41A8H = 16.808 


e digitar PRINT PEEK (16.806), PEEK 
(16.807), PEEK (16.808) ENTER. A te- 
la mostrará: 201 00 255; convertendo 
para hexadecimal, teremos: 


201 = C9H 
O = 0H 
255 = FFH 


Pseudo comandos que 
chamam rotinas auxiliares 


Agora vejamos o caso dos micros 
com disk drive. Se o usuário estiver em 
BASIC residente, os valores encontrados 
nos vetores serão os mesmos. Se estiver 
em BASIC Disco, encontrará, depen- 
dendo do sistema operacional, valores 
diversos. No DOS 500 ou TRSDOS tere- 
mos: 


ENDEREÇO CONTEÚDO 


DECIMAL MEXA DECIMAL 







16806 = C3 ou 195 






16807 = 78 ou 123 





16808 = 42 ou 66 


OPERANDO A ROTINA DE ERRO 


Ao encontrar no vetor 41A6H o va- 
lor C9H (que corresponde ao RETURN 
do BASIC), a rotina de erro retorna ao 
interpretador BASIC. Se encontrar por 
exemplo, C3 7B42 (o C3H equivale ao 
GOTO do BASIC), fará um JUMP para 
o endereço 427BH, onde continuará 
operando, o que também significa que 
o micro está em BASIC Disco. 

Para interceptarmos a rotina de erro, 
devemos seguir os seguintes passos: 

. guardar em um buffer os valores encon- 
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trados em 41A6H, 4147H e 4148H pa- 
ra uso em nossa rotina; 
. alternar os conteúdos de 41A46H, 4147H 
e 41A8H para valores correspondentes 
ao endereço onde está a nossa rotina, a 
qual inicia em 7000H: 


CONTEÚDO | VALOR ORIGINAL novo 
EM BASIC-DISCO CONTEÚDO 


41A6H Cc3H 





C3H 


A primeira parte da rotina Assembler 
(listagem 1) realiza automaticamente es- 
ses dois passos (linhas 360 a 500). Já a 
segunda parte, que recebe o desvio da 
rotina de erro, encarrega-se de verificar 
certas condições. Vejamos: 

l — se o código de erro é 02, a rotina 
continua; se não for, retorna para o in- 
terpretador ou vai para o BASIC Disco; 
2 — sendo o código 02, verifica se a 
string apontada por HL é igual a um dos 
novos pseudo comandos BASIC que car- 
regamos em BC; 

3 — se HL for igual a BC, a rotina apon- 
tada é executada; 

4 — se HL não for igual a nenhum dos 
valores apontados por BC, a rotina re- 
torna para o interpretador ou vai para o 
BASIC Disco. 


A Nasajon Sistemas, uma empresa 
especializada no desenvolvimento de 
programas, está lançando no merca- 
do, em caráter exclusivo, o mais com- 
pleto sistema de Folha de Pagamento 
para microcomputadores dos tipos 
CP 500, Digitus, Naja ou qualquer 
outro da linha TRS 80. 

O programa emite os seguintes rela- 
tórios: 


Qutros programas 
à disposição 


ue 
Controle de Estoq 
Mala direta c/Ed. Texto 
gar /receber 


. y 00 
(c/saldo banc io) 219.000, 


438.000,00 


Tesouraria 
438.000,00 


Crediário 
Contabilidade 


dos até 31.08.84 


CRIANDO NOVOS 
PSEUDO COMANDOS BASIC 


Para a segunda parte da rotina Assem- 
bler (linhas 520 a 1030), precisamos de- 
finir qual ou quais novos pseudo coman- 
dos BASIC vamos criar e o que essas ins- 
truções deverão executar. Vamos a três 
exemplos: 


. Exemplo 1 — Criamos o comando 
SOM e uma rotina que gera som. Toda 
vez que entramos com SOM em um pro- 
grama BASIC ou em comando direto, a 
rotina SOM será executada. 


. Exemplo 2 -— Criamos o comando 
CLASS e uma rotina Assembler que rea- 
liza a classificação de strings. Ao entrar- 
mos com CLASS em um programa BA- 
SIC apropriado, a classificação das 
strings será executada com extrema ra- 
pidez. 


Exemplo 3 — Criamos o comando 

GRSYS e uma rotina Assembler para 
gravar programas em SYSTEM. Ao ne- 
cessitarmos utilizar este programa bastará 
entrar com GRSYS. 
Portanto, podemos chamar qualquer 
programa em linguagem de máquina que 
esteja na memória por um novo coman- 
do criado por nós. 

Os novos comandos, no entanto, não 


Relação de Empregados. 
Quadro de Horários. 

Folha de Pagamento. 

Resumo da Folha. 

Relação de FGTS. 

Guia de FGTS. 

Relação de IR. 

Guia de IAPAS. 

Relação de Bancos. 

Recibo de Pagamento e outros. 


Preço Especial de lançamento: 
Cr$ 584.000,00 


Incluindo diskette, manual completo, ta- 
belas de planilhas, assistência técnica total 
e garantia de um ano. 


podem conter nenhuma das palavras re- 
servadas do BASIC, assim como palavras 
que possam dar significado de comando. 
Assim, COR, LISTA, CERTO, ERRA- 
DO, LETRA, REMEDIO etc. não po- 
dem ser utilizadas. 

Para ter certeza de que o seu novo 
comando não contém nenhuma das pa- 
lavras reservadas, entre no micro com 
uma linha, dando como nome da variá- 
vel o tema que você quer usar. Por 


exemplo: 

10 ERRADO =100 ou 
10 CERTO = 500u 
10 VALOR =100 


Entre com o comando RUN. Se na tela 
aparecer uma mensagem de erro, é por- 
que você está usando uma palavra reser- 
vada do BASIC. Caso contrário, o novo 
comando será válido. 


ROTINAS EXEMPLO 


As rotinas criadas para demonstração 
prática são bem simples e rápidas, facili- 
tando assim o entendimento de todo o 
processo. 

Não há quem não fique extasiado ao 
ver rodar o programa Attack Force (a 
maioria dos usuários deve conhecer) e 
sua fantástica introdução: 

NOS CONTROLAMOS SEU MICRO — 


CONTROLAMOS O VERTICAL etc., = 


Av. Rio Branco, 45 grupo 1311 
Tel.: (021) 263-1241 e 233-0615 
Rio de Janeiro — Cep 20090. 


Empresa filiada 
à ASSESPRO. 


Você encontra esse e outros programas em nossos revendedores credenciados: 


Rio de Janeiro: Casa Garson: 252-9191; 325-6458; 541-2345 e 252-2050 r.179 — Eldorado Computadores: 227-0791 — Bits e Bytes: 322-1960 — 
Salvador: Officina: 248-6666 r. 268 — Sysdata: 242-9394 — São Paulo: Microprocess: 64-0468 — Jundiaí-SP: Projun 


Sistemas: 434-6640. 





PSEUDO COMANDOS QUE CHAMAM ROTINAS AUXILIARES 





etc. As telas aparecem e desaparecem 
milagrosamente na horizontal, na verti- 
cal, além de outros tantos efeitos que 
são produzidos. 

Demonstraremos o princípio destes 
efeitos por intermédio de três sub-roti- 


Listagem 1 - ROTERR 





00100 ;CLOVIS RUBENS CLOVIS RUBENS CLOVIS RUBENS CLOVIS RUBENS 


E 00440 ; 
nas, e para tal vamos criar três novos 00120 ;))))))))2)25))) LISTAGEM 4 CUUULUUA AC CC 
pseudo comandos BASIC: 00130 ; 


00440 ,)))>)))2))>)555 R O TJERR (XXX CAX<C<C<4<X<X<<<<<< 
001450 punnnnnnnenxana PROGRAMA DEMONSTRATIVO ent EANENn 
00160 punnunnanaunnes DA UTILIZAÇÃO DA ROTINA mmmm mM MEI ME DE 
00470 prununnann Tan" DE ERRO DE SINTAXE CENTER 1 E 
00180 
001490 
00200 ;AUTORES: CLOVIS E RUBENS ALMEIDA MENEZES 
00240 ;DATA: 23/FEV/1984 

00220 ;PARA MICROS COMPATIVEIS COM TRS-B0 MODELO III 
00230 ;COoM 48K DE RAM << PROTEGER COM 61439 5> 


. TELA — terá a finalidade de guardar, 
em um buffer, uma tela completa de ví- 
deo no momento em que for chamada. 


- CERTA — mostrará a tela que foi guar- 
dada pelo pseudo comando TELA. 


“a <a 





- VIRADA — mostrará a tela totalmen- 00240 ; 
te invertida. 00250 ;CLOVISRUBENSCLOVISRUBENSCLOVISRUBENSCLOVISRUBENSCLOVISRU 
00260 ;s 
A sub-rotina TELA localiza-se, em nossa 41A6 00270 VETERR Equ 41A6H | ;VETOR ROTINA ERRO 
Ea : 4094 00280 CODERR EQU AO9AH — s;GUARDA CODIGO DE ERRO 
rotina Assembler, entre as linhas 1040 e ADE 6 00290 ULTBYT EQU A0E6H —sPONTEIRO ULTIMO COMANDO BASIC 
1100; CERTA entre 1110 e 1170 e VI- 1D1E 00300 PROXIN Eau 1DLEH RETORNO PARA INTERPRETADOR 
RADA 1180 e 136 25A4 00310 CPSTRG EQU 25ALH —sCOMPARA HL E BC 
entre e 1360. 3Cc00 00320 VIDEO  EqQU 3C00H INICIO AREA DE VIDEO 
Após ter executado uma das sub-roti- FCOO 00330 GUARDA EQU OFCOOH s INICIO DO BUFFER 
FFFF 00340 FIMBUF EQU OFFFFH sFIM DO BUFFER 
nas apontadas por um dos novos pseudo F000 00350 ORG 0F000H 
comandos BASIC, a quarta parte do FODO 214641 00360 PREROT LD HL, VETERR s CARREGA COM END.DO VETOR 
00370 :DE ERRO 
programa em Assembler se encarrega de FOO3 ES 00380 PUSH HL “SALVA REGISTRO 
indi Ê FOO4 4459F0 00390 LD DE, RETROM “ENDER.DE TRANSFERENCIA 
ERRAI O indicador do código de erro e re FOOZ 040300 00400 LD BC, 0003H 3 CARREGA COM 3 
tornar ao interpretador BASIC ou BA- FOOA EDBO 00410 LDIR : TRANSF . CONTEUDO DE “HL” 
SIC Disco. 00420 sPARA “DE” 
FOOC Ei 00430 POP HL sRECUPERA REGISTRO 
Quem tiver um editor Assembler, FOOD 36C3 00440 LD (HL), 0C3H SVALOR A SER MUDADO 
: E FOOF 23 00450 INC HL : INCREMENTA 
basta apenas entrar com as linhas da lis FOSO 1149F0 00460 LD DE, INICIO : CARREGA COM END.P/ JUMP 
tagem 1, observando que: FO13 73 00470 LD (HL),E ; TRANSFERE VALOR DE “E” 
F014 23 00480 INC HL ; INCREMENTA 
FOLS 72 00490 LD (HL),D : TRANSFERE VALOR DE “D” 
FOLé C9 00500 RET sVOLTA PARA BASIC 
F017 0000 00540 DEFW 0000 
FO19 FS 00520 INICIO PUSH AF ; SALVA 
FOSA CS 00530 PUSH BC ; TODOS 
” FOSB DS 00540 PUSH DE ;05 
FOLC ES 00550 PUSH HL sREGISTROS 
[é go, FOLD 78 00560 SINERR LD A,E SVERIFICA SE E” ERRO 
pa “ 00570 ;DE SINTAXE 
FOLE FEO2 00580 CP 02 sSE FOR 2 E” ERRO 
informática o go 
Fozo 2033 00600 JR NZ,FIMá :SE NAO FOR RETORNA 
00640 sPARA O BASIC 
- ; FOZ2 2AE640 00620 PEGCAR LD HL, CULTBYT) sPEGA PROXIMO CARACTER 
* Assistência técnica: FO2s 7E 00630 LD A, (HL) ;DO PROGRAMA BASIC 
ty FOZ6 B7 00640 OR A JVERIFICA SE E* ZERO 
- Linhas TRS 80, PC FO27 2004 00650 JR NZ, PROXCO :SE NAO FOR PASSA PARA 
- APPLE e KAYPRO 00660 sPROXIMA INSTRUCAO 
é F029 23 00670 AVANTE INC HL ;SENDO ZERO PULA 
* Autorizados: FOZA 23 00680 INC HL :ENDERECO DA PROXIMA 
* Prológica, Digitus e 00690 sLINHA E TAMBEM O 
: Sysdata Fo2B 23 00700 INC HL ; NUMERO DA CORRENTE 
. Fo2c 23 00710 INC HL sLINHA 
+ E FOZD D7 00720 PROXCO RST 10H : PROCURA PROXIMO CARACTER 
De 4 FOZE ES 00730 PUSH HL : SALVA REGISTRO 
||: Contratos de ? FOZF OLASFO 00740 COMPAR LD BC,PSDCM4 : CARREGA COM END.DA 
% manutenção e FO32 1604 00750 LD D,04 STRING DO NOVO COMANDO 
o . FO34 SA 00760 LD E,D s“DE” CONTERA” O TAMANHO 
Desenvolvimento e 00770 DA STRING 
venda de software FO3S CDALZS 00780 CALL CPSTRG s COMPARA “HL” E “BC” 
F038 2822 00790 JR Z, TELA 'SE FOR IGUAL VAI PARA 
Consultoria 00800 ;3A ROTINA “TELA” 
FO3A OSABFO 00810 LD BC,PSDCM2 :SE NAO FOR IGUAL 
FO3D Es 00820 POP HL :RECUPERA REGISTRO 
. preaci FO3E ES 00830 PUSH HL ; SALVA NOVAMENTE 
i Micros e periféricos FO3F 16405 00840 LD D,S5 sREPETE INST.ANTERIORES 
: nacionais e FO41 SA 00850 LD E,D :PARA SEGUNDO NOVO 
importados FO42 CDAÍ2S 00840 CALL CPSTRG ; COMANDO 
. FO45 2823 00870 JR Z,CERTA sSE FOR IGUAL VAI PARA 
R. Barão de Mesquita E 00880 ;A ROTINA “CERTA” 
z À FO47 OSADFO 00890 LD BC,PSDCM3 -SE NAO FOR 
nº 663 Lis.3e4 FO4A ES 00900 POP HL “REPETE 
Tel.:(021)238-2186 FO4B ES 009140 PUSH HL s TUDO 
FO4C 1606 00920 LD D,6 ; NOVAMENTE 
dl: FOSE SA 00930 LD E,D ; 
; . FO4F CDAÍ2S5 00940 CALL CPSTRG ; 
. : FOS2 282 00950 JR Z, VIRADA “SE FOR VAI PARA 
em . 009640 “A ROTINA “VIRADA” 
À FOS4 Es 00970 POP HL :SE NAO FOR RECUPERA 
— 00980 s TODOS OS REGISTROS 
. FOSS Es 00990 FIMS POP HL sINICIAIS QUANDO 
Engenharia Ltda. FOS6 D1 01000 POP DE :DO DESVIO 
FOS7 C1 01010 POP BC “DA 
FOS8 F1 01020 POP AF sROTINA DE ERRO 
FOS9 52 01030 RETROM DEFM 'RET' :E RETORNA AO BASIC 
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ES 
21 
11 
01 
ED 


e1 


11 
04 
ZE 


003C 
DOFC 
0004 
BO 


FEFF 


003C 
0004 


C3P4Fo 


Es 
D1 
Dí 
D1 
Cí 
F1 
AF 
32 


eB 
D7 
Cí 


PAO 


C31E4D 


00000 7 
30334 


AVANTE 
CERTA 
CODERR 
COMPAR 
CPSTRG 
FIM1 
FIM2 
FIMBUF 
GUARDA 
INICIO 
LOOP 
PEGCAR 
PREROT 
PROXCO 
PROXIN 
PSDCMÍ 
PSDCM2 
PSDCM3 
RETROM 
SINERR 
TELA 
ULTBYT 
VETERR 
VIDEO 
VIRADA 


OTAL 
TEXT 


FO29 
FOSA 
409A 
Fo2r 
25As 
FOSS 
FO94 
FFFF 
FCOO 
FO49 
Fos2 
Fo22 
Fooo 
Fo2D 
1D1E 
FOA4 
FOA8 
FOAD 
FOs9 
FOLD 
FOSC 
40E6 
41A6 
3c00 
FOZ8 


01040 
01050 
01060 
01070 
01080 
01090 
011400 
011410 
014120 
01130 
014140 
014130 
01160 
011470 
01180 
01190 
01200 
01210 
01220 
01230 
01240 
01250 
01260 
01270 
01280 
01290 
01300 
01310 
01320 
01330 
014340 
04350 
01360 
014370 
01380 
014390 
01400 
01410 
01420 
04430 
01440 
01450 
01460 
01470 
01480 
01490 
041500 
014510 
01520 
01530 
01540 
01550 
ERRORS 


TELA 


CERTA 


VIRADA 


LOOP 


PSDCM1 
PSDCM2 
PSDCM3 


HL 

HL,VIDEO 
DE, GUARDA 
BC,1024D 


FIM2 

HL 

HL, GUARDA 
DE, VIDEO 
BC, 1024D 


FIM2 
HL 
HL,FIMBUF 


DE, VIDEO 
BC,1024D 
A, C<HL) 


(DE),A 


DE 
HL 

BC 

A,00 

c 
NZ,LOOP 
A,00 

B 
NZ,LOOP 
FIM? 


HL 
DE 

DE 

DE 

BC 

AF 

A 
(CODERR),A 


HL 

10H 

BC 
PROXIN 


"TELA 
"CERTA * 
"VIRADA * 
PREROT 


AREA BYTES LEFT 


00470 
014110 
00280 
00740 
00310 
00990 
01380 
00340 
00330 
00520 
01230 
00620 
00360 
q0720 
00300 
01520 
01530 
01540 
04030 
00560 
01040 
00290 
00270 
00320 
01180 


00870 
D1450 


00780 
00600 
04100 
014190 
01060 
00460 
01320 


04550 
00650 
01500 
00740 
00810 
00890 
00390 


00790 
00620 
00360 
014050 
00950 


00860 00940 
04170 01360 
01120 


04350 


01130 012140 


;SALVA REGISTRO 
sCARREGA C/END. INIC.VIDEO 
3JEND. INICIAL DO BUFFER 

* QUANT.BYTES P/TRANSFERIR 
; TRANSFERE CONTEUDO 

DE “HL” PARA “DE” 

VAI P/FIM DA ROTINA 
:SALVA REGISTRO 

SEND. INICIAL DO BUFFER 
sSENDERECO INICIAL VIDEO 
FQUANT.BYTES A TRANSFERIR 
; TRANSFERE CONTEUDO 

DE “HL” PARA “DE” 

sVAI P/FIM DA ROTINA 
;SALVA REGISTRO 

;CARREGA COM ULTIMO 
sJENDERECO DO BUFFER 
sJENDER. INICIAL DO VIDEO 
sQUANT.BYTES A TRANSFERIR 
: CARREGA “A” COM CONTEUDO 
SAPONTADO POR “HL” 

sPASSA CONTEUDO DE “A” 
PARA O APONTADO POR “DE” 
; INCREMENTA “DE” 
;DECREMENTA “HL” 
;DECREMENTA “BC” 

sCARREGA “A” COM ZERO 
sSCERIFICA SE “C” E* ZERO 
:SE NAO FOR RETORNA 
;MESMA COISA 

;COM O REGISTRO “B“ 

;SE NAO FOR ZERO RETORNA 
;SE “BC” FOR ZERO VAI 
PARA ROTINA FIM2 
sSRECUPERA 


7 
; TODOS 


; 

s0S 

sREGISTROS 

;ZERA O ACUMULADOR 
sCOLOCA ZERO COMO 

; CODIGO DE ERRO 
sjDECREMENTA “HL” 

sPEGA PROXIMO CARACTER 
sRECUPERA “BC” 
sRETORNA P/INTERPRETADOR 
sjBÁSIC 

sPRIMEIRO NOVO COMANDO 
s SEGUNDO NOVO COMANDO 
; TERCEIRO NOVO COMANDO 
FIM INICIO 





1 — A rotina é para micros com 48 Kb. 


2 — Para micros com 16 Kb, deve-se tro- 
car as seguintes linhas: 

210; com 16 Kb de RAM proteger com 
((28671)) 

310; GUARDA EQU 7C00H; início do 
buffer 

320; FIMBUP EQU 7FFFH; fim do buf- 
fer 

330; ORG 7000H; 


3 — Em micros com cassete, após ter en- 
trado com todas as linhas, grave o pro- 
grama objeto com o nome ROTERR ou 
outro que melhor lhe convier. Para uso 
posterior, grave também o programa 
fonte. 


4 — Em micros com disk drive, grave o 
programa objeto com ROTERR/CMD 
ou outro nome qualquer; grave também 
o programa objeto com ROTERR/SOR 
ou outro nome e extensão. 

Agora vejamos como utilizar o pro- 
grama ROTERR, considerando, em pri- 
meiro lugar, a versão cassete. Ao ligar o 
micro, à pergunta inicial ? MEM respon- 
da com 28671 para 16Kb de RAM, ou 
61439 para 48 Kb de RAM. Carregue o 
programa com o comando SYSTEM, e 
quando aparecer no vídeo a mensagem 
* ?, aperte a tecla BREAK para sair do 
SYSTEM. Em seguida, digite: POKE 
16526,00 : POKE 16527,240:X-=USR(X) 
ENTER (para micros com 48 Kb) ou 
POKE 16526,00 : POKE 16527,112:X 
= USR (X) ENTER (para micros com 
16 Kb). 

Para quem utiliza BASIC Disco, en- 
tre no DOS com LOAD ROTERR/CMD 
e logo depois passe para BASIC Disco. 
À pergunta ?MEM responda com 61439 
e digite DEFUSRO- & HF000:X = USRO 
(X) ENTER. 

Pronto. Tanto num como no outro 
caso, você poderá usar à vontade os três 
novos pseudo comandos BASIC (TELA, 
CERTA e VIRADA) em comando dire- 
to ou em um programa BASIC. 


VERSÃO BASIC DO 
PROGRAMA ROTERR 


A versão para o BASIC poderá ser 
feita com o auxílio da listagem 2 (equi- 


pamentos com 16 Kb) ou da listagem 3 4 


e Editores de Texto: Saiba o que um bom processador pode fazer 
por você. Os principais recursos e comandos; os preços de mercado 
e, de quebra, um editor para a linha Sinclair. 


e Técnicas de Programação: Você vai aprender o que são e como 
funcionam as sub-rotinas em BASIC, e como implementar co-rotinas 
em Assembler 8080 e Z-80. 


e E mais: com o 'Pokodes”, veja como entrar com caracteres 
“gráficos diretamente do teclado de seu T RS-80 e compatíveis. 





PSEUDO COMANDOS QUE CHAMAM ROTINAS AUXILIARES 


- e. “4 a” d l 
+. = ” ATA) a ju 
andado SS gera Dirt Tai = - 
g “tes dns Era, º 
» 24 PD 23) É Cad 


ET Do Ds ES vá O 


MIT “240 DATA 229,22,6,90,205,161,37,40,36,225 
a LISTAGEM 2 * 4 215 DATA 225,209,193,241,82,69,84,229,33,0 
PROGRAMA DEMONSTRATIVO *- 220 DATA 60,17,0,124,1,0,4,237,176,24 
DE UTILIZACÃO DA ROTINA DE ERRO DE SINTAXE x 225 DATA 42,229,33,0,124,17,0,60,1,0 
DO INTERPRETADOR BASIC PARA CRIAR NOVOS * 230 DATA 4,237,176,24,28,229,33,255,127,17 
PSEUDOS COMANDOS BASIC * 235 DATA 0,60,1,0,4,126,18,19,43,1414 
PARA MICRO COM 16K DE RAM * 240 DATA 62,0,169,32,246,62,0,168,32,241 
MONTADO POR CLOVIS E RUBENS ALMEIDA MENEZES “ 245 DATA 195,148,112,225,209,209,209,193,241,475 
22/MARCO/1984 * 250 DATA 50,154,64,43,215,193,195,30,29,84 
* 255 DATA 69,76,65,67,69,82,84,65,86,73 
* 260 DATA 82,65,68,65,195,25,112,999 
265 A=28697 1: J=28761 3: K=16B06 
CLS + T=0 270 CLS : D=0 : P=O 4: L=0 : N=0 
PRINTOLSO,“))))))) ROTERR c<c<c<«<««” 275 FOR X=0 TO 453 
PRINTO206,“NOVOS PSEUDOS COMANDOS BASIC A DISPOSICAO” 280 READ P : POKE A+X,P 
PRINTO3I34, “TELA = GUARDA NA MEMORIA UMA TELA DO VIDEO” 285 PRINTOLKG4+D,P; 3 D=D+ó 1 N=N+P 3 IF D)58,D=0 : L=L+í 1 NEXT 
PRINTOI9B, “CERTA = MOSTRA A TELA INICIAL NA POSICAO NORMAL” ELSE NEXT 
PRINTO462, “VIRADA = MOSTRA A TELA INICIAL INVERTIDA” 290 FOR X=0 TO 2 
100 PRINTOS9O, "APERTE < ENTER > PARA CONTINUAR” 295 READ P 3: POKE K+X,P : 
105 AS=INKEYS : IF A$="",105 ELSE IF AS<)CHR$(13),105 300 NEXT 
110 CLS : PRINTOL30,“VERIFICANDO CONTEUDOS DE DATA” 305 FOR X=0 TO 2 
145 FOR X=1í TO 500 : NEXT 310 POKE J+X,FX(X) 
420 CLS +: L=0 : D=0 : N=0 : FOR X=í TO 457 : READ R 315 NEXT 
125 PRINTOLNGA+D,R; 3 D=D+ó 2 N=N+R : IF D)58,0=0 : L=L+1 : NEXT 320 CLS 1: PRINTOÍL30,”“TERMINADO >) BOA SORTE << ” 
ELSE NEXT 325 READ B : FOR X=D TO 26 : READ P : POKE 15554+X,P 2: NEXT 
130 IF N<)15632,CLS : PRINTOL30,7ERRO NOS VALORES DE DATA” : END 330 FOR X=í TO S00 : NEXT 
135 READ R 335 TELA 
140 IF R<)999,CLS : PRINTOL30, “VERIFIQUE QUANTIDADE DE DATA” : E 340 CLS : VIRADA : FOR X=1 TO 400 : NEXT 
ND 345 CLS : CERTA 1 FOR X=í TO 400 : NEXT 
145 FOR X=1 TO 27 : READ H 3 Z=Z+H 3 NEXT 350 GOTO 340 
150 IF Z<)1444,CLS : PRINTO430,”“SEGUNDO GRUPO DE DATA C/ERRO” 1: 355 DATA 67,32,76,32,79,32,86,32,73,32 
END 360 DATA 83,32,32,69,32,32,82,32,85,32 
155 CLS 365 DATA 66,32,69,32,78,32,83 
160 PRINTOL40, “VALORES DE DATA APARENTEMENTE CORRETOS” 370 CLS : PRINT9L30,“PREPARE GRAVADOR E APERTE ENTER” 
165 FOR X=í TO 1500 : NEXT 375 AS=INKEYS : IF A$="",375 ELSE IF ASC)CHR$(143),375 
170 CLS 1 PRINTOZOS, “DESEJA GRAVAR O PROGRAMA ? ( S/N 3)” 380 CSAVE”R” 
175 DS=INKEYS : IF D$="",475 385 CLS : PRINTOL30,“GRAVACAO ENCERRADA” : FOR X=1 TO 500 1 NEXT 
180 IF D$="5S",370 ELSE IF D$S="“N”,390 ELSE 1475 390 CLS : PRINTOL94,“ INICIANDO POKE NA MEMORIA” 
185 DATA 245,1497,213,229,123,254,2,32,51,42 395 FOR X=í TO 500 : NEXT 
190 DATA 230,64,126,183,32,4,35,35,35,35 400 FOR X=0 TO 2 
195 DATA 215,229,1,164,112,22,4,90,205,1641, 405 FX(X)I=PEEK(16806+X) 
200 DATA 37,40,34,1,168,112,225,229,22,5 440 NEXT 
205 DATA 90,205,161,37,40,35,14,1473,112,225 415 RESTORE 1 GOTO 265 


SAO PAULO 


CS 
r 


PRINT P;” 





(para micros com 48 Kb). Deve-se, no 
entanto, tomar cuidado quanto aos valo- 
res de DATA (um contador informará se 
houver erro na digitação). 

Tendo entrado com o programa, aper- 
te RUN; se todos os valores de DATA 
estiverem corretos, o programa pergun- 
tará se você o deseja gravar. Após tê-lo 


salvado, o programa continuará sua exe- 
cução e os efeitos serão demonstrados 
na tela do micro. Se desejar, entre com 
o comando NEW e digite outro progra- 
ma utilizando os novos pseudo coman- 
dos. Observação: nunca dê RUN duas 
vezes seguidas no programa ROTERR, 
pois os endereços dos vetores ficarão 


trocados, e qualquer palavra que conte- 
nha erro fará com que o micro fique em 
looping contínuo. 

As rotinas criadas para o programa 
ROTERR são bastante simples, pois a 
nossa finalidade principal foi demons- 
trar como se pode criar pseudo coman- 
dos BASIC. O aproveitamento e aper- 


feiçoamento dos princípios explanados 
ficarão por conta da imaginação do leitor. 


BIBLIOGRAFIA 
1 — HOWE, H., TRS-80 Assembly Lan- 
guage 
PEDI DD 2 — FARVOUR, J., Microsoft BASIC 
“ Efe * Decoded & Other Mysteries 
"x fa . o . a 
'* ALTERACOES DA LISTAGEM 2 PARA MICROS COM 48K DE RAM x ie r7i8o) Er J., 80 Micro Compu 
rx MONTADO POR CLOVIS E RUBENS ALMEIDA MENEZES M 
CRI DDD DO DEI DE DE DEDE DEDE DE DEDE DEDE DO DO DE DO DO DO DO DEDO DEDE DEDE DE DE DE DE DE DE DO DO DEDO DE DEDO DE DE IE DE DE DE DEDE E DE 4 = LEVENTHAL, L. R., Z80 Assem- 
bly Language Programing m 
ALTERE NO PROGRAMA AS LINHAS SEGUINTES: e 


PARA MICRO COM 48K DE RAM 
IF N<>46805,CLS : PRINTOÍ30,“ERRO NOS VALORES DE DATA” zEND 
DATA 215,229,1,164,240,22,4,90,205,161 
DATA 37,40,34,1,168,240,225,229,22,5 
DATA 90,205,161,37,40,35,1,173,240,225 
DATA 225,209,193,241,195,123,66,229,33,0 
DATA 60,47,0,252,1,0,4,237,176,24 
DATA 42,229,33,0,252,17,0,60,14,0 
DATA 4,237,176,24,28,229,33,255,255,17 
DATA 195,148,240,225,209,209,209,193,241,175 
DATA 8B2,65,68,65,195,25,240,999 
A= -4071 : J= -4007 : K=16806 


Clóvis Almeida Menezes é economista e ad- 
ministrador e Rubens Almeida Menezes é pro- 
gramador. Ambos audotidatas, deram os pri- 
meiros passos em computação com um PC- 
1211 em março de 1983 e atualmente pos- 
suem também um JR Sysdata e um CP-500 
com dois disk drives. 
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O Nexus 1600 conquistou a pre- 
ferência dos usuários brasileiros 
de microcomputadores compatí- 
veis com IBM-PC. Também não 
era para menos. Afinal quem 
analisa a linha de micros de 
16 bits sabe que a qualidade do 
produto, a garantia de con- 
tinuidade de produção e de N 
acompanhamento dos lança- 
mentos da IBM no exterior, 
são fundamentais para o su- 
cesso, a médio e longo prazo, 
desta nova linha de equipa- 
mentos. E quem está no mer- 
cado de informática sabe que hj = 
somente o Nexus 1600 pode ofe- | | 7 
recer esta garantia.Operando iso- “pelo fabricante, em todo 
ladamente, funcionando como siste- sa o país. Com o Nexus 1600 seu 
ma multiusuário, com até 16 termi- micro não fica parado. 

nais ou emulando um terminal do A Compumicro e o fabricante garantem. 


computador de grande porte, o Ne- 
xus 1600 é o “IBM-PC COMPATÍ- 
VEL” de melhor performance. 
Além disso, o Nexus 1600 é o único 
micro “IBM-PC COMPATÍVEL” 
aprovado pela SEI. Isto significa 
que somente o Nexus 1600 é pro- 
duzido com peças e componen- 
tes adquiridos legalmente no 
exterior, diretamente do fa- 
bricante de chips, com contro- 
le de qualidade e garantia de 
de fornecimento. Forneci- 
mento hoje e amanhã. 
À garantia e assistên- 
cia técnica ao Nexus 1600 
3 é prestada diretamente 




















Tudo o que você precisa para implantar um NEXUS 1600 na 
sua empresa você encontra na Compumicro. Levantamento de 
necessidades, especificação de configurações, treinamento, for- 
necimento de Software nacional e importado, desenvolvimento 
e implantação de sistemas, com a garantia da experiência de 
quem mais entende de 16 bits no Brasil. 





VENDA — ALUGUEL — LEASING 


O maior revendedor NEXUS à 
do Rio de Janeiro com os Cojjoviaio 
menores preços do mercado INFORMATICA EMPRESARIAL LTDA. 


Rua Sete de Setembro, 99 — 11º andar 
Tel. PBX (021) 224-7007 


repro 


CEP 20050 — Rio de Janeiro — RJ 








= É |rodada MS 





Você tem um micro Sinclair, não sabe telegrafia mas gostaria de aprender? 


Pois então este programa foi feito “s 


ob medida” para você. Conheça o... 


Código Morse 
a moda Sinclair 


traduz as letras do alfabeto em sequências de bips so- 

noros, de acordo com o código Morse. A velocidade de 

tradução dos símbolos pode ser variada, permitindo 
que cada usuário selecione a velocidade que mais convier ao 
seu estágio de aprendizado. 


O programa oferece três modos de operação distintos. No 
modo 1 é emitida uma sequência de bips sonoros corresponden- 
tes a uma letra ou algarismo ao acaso. O programa fica aguar- 
dando que seja acionada a tecla pode mpreserso aos bips emiti- 
dos, quando então emitirá uma série de diferentes sinais, e as- 
sim sucessivamente. Cada vez que for digitada uma tecla erra- 
da, o programa continuará emitindo a mesma sequência de si- 
nais, só mudando quando for acionada a tecla correta. É possí- 
vel bisbilhotar qual caráter alfanumérico deu órigem à série de 
bips produzida acionando a tecla. (ponto). Durante um segundo 
ficará visível no centro da tela do monitor a resposta correta a 
ser teclada. 

No modo 2 o usuário vai teclado letras ou algarismos que 
são instantaneamente traduzidos em caracteres Morse, como 
se estivesse operando uma estação telegráfica através de um te- 
clado. 


FÉ ste programa educativo para micros da linha Sinclair 


No modo 3 o programa emite, sequencialmente, um arquivo 
completo de caracteres Morse. Inicia traduzindo a série de alga- 
rismos de O a 9, passa para o alfabeto completo de A a Z e vol- 
ta ao início, repetidamente. 

Para carregar o programa, digite inicialmente as instruções 
la8,e teste UND Lise erro grosseiro de digitação rodan- 
do o programa Liste em seguida, e verifique que a pri- 
meira instrução (1 REM) mudou de aspecto, apresentando ago- 
ra a rotina em Assembler, a qual emitirá os bips sonoros. Se 
quiser deixar o programa mais elegante, apague as instruções 
2a 8,e prossiga digitando o resto do programa, da instrução 
10 até 3050. Note que, nas strings definidas nas instruções 2 e 


40 


Jorge A. C. Bettencourt Soares 


80, os dados foram agrupados em blocos de dois e cinco carac- 
teres, respectivamente, com a intenção de facilitar a digitação, 
evitando erros (atenção: os espaços devem ser respeitados). 


DE NÚMEROS PARA BIPS 


A string B$, da instrução 80, contém o arquivo completo 
de símbolos Morse: o 1 representa o ponto e o Zé traço do 
código Morse. Os zeros foram utilizados apenas como enchi- 
mento, padronizando todos os símbolos em grupos de cinco dí- 
gitos. A string B$ inicia com os dígitos de O a 9 e continua 
com o alfabeto completo, num total de 36 blocos de cinco dí- 
gitos. Assim, exemplificando, o terceiro bloco (11222) corres- 
ponde ao caráter Morse . . - - - que representa o algarismo 2 em 
alfanumérico. Será traduzido em bips curtos e longos, os quais 
soarão mais ou menos como di-di-da-da-da. 

Logo no início do programa é solicitada a definição da velo- 
cidade de tradução, representada por um número compreendi- 
do entre 30 e 200. Experimente uma velocidade média, diga- 
mos, 60. Números maiores produzem velocidades mais lentas. 

O programa pedirá, em seguida, a definição do modo de ope- 
ração — 1, 2 e 3 —, conforme descrito no início do artigo. Uma 
sugestão: comece operando no modo 3, que funciona automa- 
ticamente, repetindo todo o arquivo de sons. Isto lhe permitirá 
ajustar tranquilamente o volume e sintonia do televisor (moni- 
tor de vídeo) com bastante precisão, obtendo bips bastante 
convincentes. Experimente ainda instalar um receptor de rádio 
perto do micro, sintonizando-o na faixa FM, ou, de preferência, 
um amplificador externo, ligado à saída MIC do micro. 

Na linha 3000 tem início uma sub-rotina em BASIC que 
produz, na variável k4, o mesmo efeito de RND. Esta sub-roti- 
na, divulgada no manual de programação do PC 1211-RP da 
Sharp, foi introduzida na medida em que RND não funcionava 
devido à interferência produzida pela sub-rotina em linguagem 
de máquina para gerar os bips. A propósito, esta rotina dos bips 
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De PYIDWM 


em, aqui estamos em mais um QSO através da RODADA 
MS, trazendo as últimas novidades. 
O excelente trabalho x 


programa para treinamento 
linha Sinclair, de autoria de MOIDFÁ 
incrível que pareça, não é r — embora PY2A 
Luiz já se tenha co Siproneido tita da ve 
doses maciças do. enciae. 
RODADA MS tula-se com seus com amigos 
PY1DFF Cláudio (continental leader, 21 Nie South America) € 
ZY5CIG/PY SCIG-Alcione (top score, all bands, rag 


spo resultados obtidos no 1983 CQ World CW 
divulgando o nome do tr Amd ii 


o con to de que gozam os cedablistas brasileiros em todo o 


Contsspo ondência recebida: de PY2AQO-Luiz, com uma lista de 
72 colegas ue já se fizeram presentes na Rodada do Micro e 
PYT AH Cro “Cruz, também com uma lista de sete colegas da 
lado de ncia Ia aNaÃos Re OS A Tiara a 
radioamadorismo (todos já devidamente cadastrados na 
RODADA MS); de PPIDMX- Nor e A. com 


diretamente; de PY 

GPCW; de PY7AOR-Galba, PY2JM-José 

Drago, PY2IPL-Pedro, PY SUX-Adão, PY2JRF-José Reynaldo, 
com solici s diversas e habilitando-se ao sorteio das 
assinaturas de MS; de GMPR, com o BI de Abril/Maio. 

CQ! CQ! Não deixem de mandar, até 15 de agosto, um QSL 
ou bilhete com alguma sugestão, crítica ou comentário sobre a 
RODADA MS, concorrer ao sorteio de três assinaturas 
anuais de MS! veitem para informar-nos o tipo de micro 
de que dispõem. 

Se você acha que não tem espaço para instalar uma antena de 
80 metros, ou mesmo de 40 metros, não perca nossa próxima 





disponível para 
PY2AQO-Luiz está 


RODADA. Nela será publicado um de PYZA 
o epier asa , de facílima para a 

per opor rugosa mon encurtadas ou 
bobinadas, com todos os detalhes de construção. Para dar uma 
ri nei q 


a Rodada do Micro também em 20 metros e, para que 
melhor atender a todos os interessados, solicita suge 
via MS, sobre horários. aao be , ele continua à disposição, 
diariamente, a partir das 16:00h, em 7097 KHz. 
Agradeço aos novos companheiros ue a cada dia se fazem 
o a a de incentivo. Da mesma 
forma, desejo a todos os colegas que bicoram as 
eventualmente me encontro para dizer que 
RODADA MS. Estes é nosso € o seu sucesso — 
ou insucesso — depende de todos e de cada um de nós. 
Já pensaram como seria bom poder transmitir 
via rádio? Pois bem, e e uma equipe 
neste Para , já tendo obtido alguns resultados positivos. Algum 
colega teria conhecimento a respeito para dividir conosco? 
Vamos, então, aa peognius Ea Código Morse. Até a próxima, boa 
sorte nos exames de promoção e espero encontrá-los também 
pelas subfaixas. 
HPE CUAGN 73 ES GL FM PY1DWM-Quito 


A RODADA MS é coordenada por PY 1DWM-Roberto QUITO 
de Sant'Anna. Qualquer an ses e/ou colaboração deve 
ser enviada aos seus cuidados, para a Av. Presidente Wilson, 
165, grupo 1210, CEP 20030, Rio de Janeiro, RJ. 
Contatos diretos via Rodada do Micro (7097 KHz, das 
16:00 às 18:00h), Patrulha da Madrugada (7055 KHz, das 22:00 
às 23:00h) ou pelo telefone (0243) 54-3355, ramal 594. 


Júnior e Edelvício Souza Júnior. 
O programa, incluindo suas variáveis e o arquivo de imagem, 
ocupa cerca de 3.300 bytes. Bom aprendizado. 4 


foi adaptada de um artigo publicado no número 16 de MICRO 
SISTEMAS, janeiro de 1983, intitulado Transforme seu DGT- 
100 em um instrumento musical, de autoria de Carlyle Macedo 


Site NÇLe 


e Acrescente a este um cheque 
cruzado, nominal à ATI 
Editora Ltda., no valor 
correspondente ao seu 
pedido. 


e Seu pedido pode ser feito 
por carta, indicando 
quais os números 
atrasados que você quer. 


Aqui estão os nossos endereços: 


— RJ — CEP 20030 — Tels.: (021) 262-5259, 262-6437 e 262-6306. 
Rua Oliveira Dias, 153 — Jardim Paulista — São Paulo — 
SP — CEP 01433 — Tels.: (011) 853-7758 e 881-5668. 


AL i ; Av. Presidente Wilson, 165 — grupo 1210 — Centro — Rio de Janeiro 





CÓDIGO MORSE À MODA SINCLAIR 


Código Morse 


1 REM lJl2F4562735012345858 FAS 1LZS 
4SSE7I3SQIZ3AÁSE 
& LET A$=º'C0b 21 00 dO 11 280 8 
O 03 FF FF DS Ei SE 0912 D3 FF Ba 
CR 92 40 DE El FE OZ DS FF os DA 
SC 40 DD 5 DA 30 40 CS" 
LEF X=16514 
FOR N=1l TO. LEN Ag STEP & 
LET ABR=ICODE AgiN)-25) S12+00 


m 


4 
— 
a 
E; 
12 FEM “MORSE” 
20 REM MICRO SISTEMAS - JACES 
350 FAST 
40 DIM CEIZE,S) 
O DIM DES, Il) 
OO LET Fã=* 
"0 LET KI=PEEK 164365 
50 LET E&='22222 12222 11222 2 
1i22 11112 111il 21111 22111 222 
11 2Z222i 1200? 21110 2izio zZ1109 
12000 11219 Z2100 11110 119000 12 
2220 21200 121]i% 22000 21000 2zZ2 
00 12210 22122 12100 11190 20002 
11220 11129 12200 21120 21220 = 
2110" 
90 FOR N=0 TO 35 
+00 LET C&iN+1) =B&iN+G+1I TO N+º5 
+! 


(8) 
IBERNE, 


SOFTWARE 
. seu micro merece! 












PARA QUEM QUER AVENTURA E MUITA AÇÃO... 


EM CADA FITA 5 SENSACIONAIS JOGOS, EM LINGUAGEM DE MÁQUINA , PARA MICROS 
DE LÓGICA SINCLAIR" COM 16K DE RAM 







BICHOS & CIA AVENTURA & MISTÉRIO COMBATE PATRULHA GALÁCTICA 
ms CASCA, A COBRA * PIRÂMIDE INCA & NIGHT GUNNER NAVE MÃE 
“= CRAZY KONG “ SABOTAGEM * ALERTA VERMELHO “ FUNGOS MUTANTES 
e CENTOPÉIA = O AVENTUREIRO “ POLARIS * GALÁTICA 
* FROGGER » MAZOGS 8 DUELO e SOS VEGA Ill 






8 SUCUAI & USS ENTERPRISE * SCRAMBLE e PERSEGUIDOR 










SE O SEU NEGOCIO E PROGRAMAR... 
2 FITAS CONTENDO AS MAIS PODEROSAS 

FERRAMENTAS PARA PROGRAMAR EM BA- 

SI OU LINGUAGEM DE MAQUINA 










ROT 1. Plus 
E SOG - Uma nova e mais poderosa versão de ROT | 
€ seu sensacional Sistema Oper aciona! Gráfico. 

a MERGE 







ROT | 












* COMPILADOR BASIC 


Procure nossos revendedores 
em todo o Brasil 


uva MICROCOMPUTADORES LTDA. 


Av Graça Aranha, 145 -SiLoja nº 1 - Rio de Janeiro - RJ 
CEP 20.030 Tel. (021)262-6968 


















PRINT AT 190,4; “VELOCIDADE? 


oe Sa 
Em 
t- 
IL. 
Cr 
ps 
mi 
x 


"MODO (lo 


pd 
= 
BE 

+ 
| 
é 


.- 
- 


e 
mal 
Em 


E 
mM 


E = |U e oa fã = E o O =) TUM Pg — pps 


Th 

Ci. 

IF Ez=z THEN GUTO 1590 

IF E=z7 THEN GOTO 25920 

SOSUB SAVA 

LET C=INT (3643:kK4) 

LET Eg=CHkAS (25+C) 

IF Eg=F& THEN GOTO 210 

COSUB IZ3B 

COSUE SSB 

IF INkEvg=)'" THEN GOTO 278 
SO LET Fé=INKEYG 

IF Fã&=z"." THEN GOSUE 2000 

TP F&a=E THEN GOTO Z1iWB 

cOTO 2Z8Q 

FOR N=1 TOS 
. dr DS4NI=01" THEN POKE 1551 
=, 

PORE 16531 


Es 
nmM HM 


MMC O ET EM A TT 


CA 
ae 


TREN RETURN 


TI = 

| 
po 
Ciisa 


TH 
1 
H 
fu 
a * 
Emi 


MC =. 
ms 


oo doa 
RR sa 


+. 


EMC cm emMcica pon pum npnnnNERERUPpREER a ps 


to = 4 TEM Pe a fia fui =.) = 163 + pn 
Melelelotolololordololololelolololololololololololatoto 


ias E 
a q 


ES FETUEN 

1808 LET Gé=0CEIC+3) 
181 FOR N=1 TOS 

1220 LET DEiMN:=Cg(N) 
1830 IN 27 Po 

1500 op “N=1 TO 28 
1510 NEXT 

1520 TF INkKEYvg="" THEN GOTO 1529 
13550 LET Hé&=zINkKEYS 
1540 LET C=UODE Hg-2s 
155) GOSUB 120908 

1550 GUOSUBE sas 

1570 GOTO 1520 
2000 SLOU 
2010 PRINT AT 10,10; Eg 
2020 PAUSE Eq 


2030 FAST 
cid RETURN 
eso FOR LE Ty BS 


2sSl0O COSUB Ilgoa 

EL) COSUB Saga 

2550 FOR kK=1 TO A 

2540 NEXT K 

2550 NEXT É 

2560 GOTO 25% 

000 LET KI=ABI (439147+K1) 
010 LET K2=zld++5+1 

SOZO LET Ka=23+:kK1 

3030 LET KIi=KS3-INT (KkS/K21 s5kK2 
3040 Ra KázKIvkK2 

3030 RETURN 





Jorge A. C. Bettencourt Soares é engenheiro agrônomo e trabalha na 
Coordenadoria de Assistência Técnica Integral da Secretaria de Agricul- 
tura e Abastecimento, na cidade de Bauru, SP. Já foi programador de 
um siglo Ag 8-500 no início da década de 70 e atualmente é usuário 
de um TK85. 
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RINGO R-470 CHEGOU À CIDADE. 
OS OUTROS MICROS QUE SE CUIDEM. 
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Cr$ 449.950,00 


O microcomputador Ringo R-470 é, disparado, o melhor em sua categoria. E mais rápido na execução de programas, oferece amplas possibilidades de 
expansão e é o único micro totalmente projetado e desenvolvido no Brasil, aprovado pela SEI - Secretaria Especial de Informática. 

Um verdadeiro herói nacional. 

et pus contar com ele para resolver problemas pessoais ou profissionais, ou simplesmente para se divertir, através de vários jogos disponíveis em 
cartuchos ou fitas. 

Aliás, cartucho é o que não falta para o Ringo. Ele é compatível com todos os programas do famoso Sinclair e possui equipamentos periféricos 
exclusivos que ampliam muito a sua capacidade. 

Compare o Ringo R-470 com os similares e comprove: nunca apareceu um micro pessoal tão profissional por estas redondezas. 


CARACTERISTICAS TÉCNICAS: * Resolução gráfica 64 x 4 pixeis (unidade gráfica), podendo atingir uma À venda nas lojas especializadas em micros, 

* Linguagem Basic e códigos de máquina 7.80 matriz de 2% X 192 quando utilizado com cartuchos foto-vídeo-som e grandes magazines. 

* 8 KBytes ROM expandível para 16 K Bytes * Cálculos aritméticos, funções trigonométricas, logarítmicas e lógicas Não encontrando o Ringo nestes locais, ligue para 
* 16 KBytes RAM expandível para 48 K Bytes o Cartuchos “Instant Soft (programas aplicativos em ROM - exclusivo) 217.8400 (SP) ou (011) 800.8441 e 800.8442 (Outras 
« Utilizável em qualquer TV P&B ou cores * Velocidade de gravação em fita cassete 2.400 BPS localidades do Brasil). DDD gratuito. 


« Conector para Joystick (jogos) EXPANSÕES: 

* Teclado tipo QWERTY com 49 teclas e 155 funções - teclas de edição e Gravador de EPROM para gravar, editar e copiar programas em cartucho RI NGOQO [=/417/(0) 
(movimentação de cursor e correção) com repetição autemática e Interface para impressora ou máquina de escrever elétrica 

* Exclusiva tecla de inversão de vídeo * Sintetizador de sons O micro que aceita desafios. 


REPONIFOUIR VAO 95 DONA PORÃO * MODEM (Comunicação telefônica - 1.200 Bauds) Ritas do Brasil Ltda. - Divisão Informática 
* Preço sujeito a alteração Telex (011) 34673 Rita BR 





e RAMCARD * SOFTCARD * VIDEOTERM * SOFTVIDEO SW e PROGRAMMER * PROTOCARD e INTF. DISKS 
e INFT. PRINT e SATURN 128K RAM. * SATURN 64K RAM. * SATURN 32K RAM. * RANA QUARTETO * MICROMODEM II 
e MICROBUFFER Il * MICROCONVERTER Il E MICRO VOZ Il E ULTRATERM E ALF 8088 CARD 
E AS00 DISK CONT EE MULTIFUNCTION CARD 


MICROCRAFT MICROCOMPUTADORES LTDA. 
ADMINISTRAÇÃO E VENDAS: AV. BRIG. FARIA LIMA, 1.664 - 3º ANDAR - CJ 316 - CEP 01452 
FONES (011) 212-6286 E 815-6723 - SÃO PAULO - SP - BRASIL 








raft II 




















[ir Tet=0e = E) 
ESIFRA == 
Mito cororo) golo) Dir (o (6) (2/8 O] RV AV a FARGO ET 
a extensão de sua mente.  MICROCOMPUTADORES LIDA. 


Av. Brig. Faria Lima, 1.698 - 1º andar - C; 11 - CEP 01452 
Tels.: (011) 212-6286 e 815-6723 - São Paulo - SP - Brasil 
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VERSATILIDADE E BELEZA 
PARA SUA IMPRESSAO 


A Scritta. através do alto indice de nacionalização alcançado nas impressoras 
GRAFIX 80 e GRAFIX 100. está colaborando de forma definitiva para que o Brasil 
atinja o nível tecnológico dos países desenvolvidos. 


SCRITTA eletrônica ltda. 
Rua Heliópolis, 61/67 - Vila Leopoldina - CEP 05318 - Fones: 831-9912 e 831-5177 


MOVIMENTO D'ARTI 





Enxadrista experiente, Luciano Nilo de An- 
drade já escreveu para os jornais “Correio da 
Manhã”, “Data News” e “Ultima Hora” e pa- 
ra a revista “Fatos & Fotos”. Luciano é econo- 
mista, trabalhando no Ministério da Fazenda, 


no Rio de Janeiro. As opiniões e comentários 
de Luciano Nilo de Andrade, bem como as 
últimas novidades do Xadrez jogado por com- 
putadores, estarão sempre presentes em 
MICRO SISTEMAS. 
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DAY 


A 








Elite A/S 





raças ao convite de um leitor 
conheci este maravilhoso micro. 
Ele é a versão recente do Elite 


A/S, que também foi campeão 
por ocasião de seu lançamento. 

O Elite A/S World Champion vem 
num tabuleiro de madeira com acaba- 
mento esmerado, agradável ao tato, com 
casas de 4,5 cm cada e peças de tama- 
nho proporcional com igual acabamento. 
Fácil de operar (é sensory), tem os con- 
troles na borda inferior e dispõe de um 
visor digital capaz de informar: o tem- 
po que está sendo gasto na jogada em 
curso, o total dos tempos das brancas e 
das pretas, bem como a avaliação da 
posição. 

Estuda a réplica ou não (à vontade 
do operador) enquanto seu adversário 
pensa, o que multiplica por dois os nú- 
meros de níveis de força. Estes, ao todo, 
são oito, apresentando os seguintes tem- 
pos médios para cada jogada: 1-5s; 2-19s; 
3-30s; 4-1m; 5-2m; 6-3m; 7-3,45m e 
8-6m. 

Outras operações podem ser realiza- 
das através de controles para: problemas 
de mate; análise de posições (excelente 
para xadrez postal), fixar o tempo para 
cada jogada ou para toda a partida; pes- 
quisa iterativa e interativa. Acompanha 
um alentado manual ilustrado. 

A Fidelity Eletronics fabrica, como 





Diagrama A — 
Posição depois 
de 29 — T1BR. 
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World Champion 


periférico opcional, uma impressora que 
registra todas as jogadas e respectivos 
tempos gastos e os tempos totais, além 
de imprimir diagramas das posições ocor- 
ridas sempre que solicitado. A qualidade 
do diagrama, acredito possa ser melhora- 
da em futuro próximo. 


O WORLD CHAMPION EM AÇÃO 


Super 9 x Elite World Champion 
Partida do Peão 
Dama — Defesa Ortodoxa 
Rio, junho de 1984 


1 — P4D P4D; 2 — P4BD P3R;3 — 
C3BD C3BR; 4 — B5C B2R; 5 — P3R 
0-0; 6 — C3B CD2D; 7 — T1B P3B;8 
— B3D PxP; 9 — BxP C4D; 10 — BxB 
DxB: 11 — 0-0 CxC; 12 — TxC P4R; 
13 — PxP CxP; 14 — CxC DxC; 15 — 
P4B DSR; 16 — B3C B4B; 17 — DST 
P3CR: 18 — D6T TD1D; 19 —- B2B 
D4D:;20 - P4R (1?). Até este momento 
ambos os micros jogaram sem pensar, 
apenas de memória. 20 — ...DSD+ (a 
permanência da dama negra na diagonal 
1TD — 8TR é imprescindível para a de- 
fesa de seu rei). 21 — T2B (a autocrava- 
ção da torre irá custar um precioso tem- 
po). 21 — ... TD1RI; 22 — T3CD BxP; 
23 — T3TR DT; 24 — BxB TxB;25 — 
T1B T7R!; 26 -— T1CD. Melhor seria jo- 
gar imediatamente 26 — P5B!. Jogada 
temática desta posição. 26 — ... T1D;27 
— R1T T(1)7D; 28 — T3CD D5D; 29 — 
T1BR?. As pretas anunciaram mate em 
seis jogadas. 29 — ... D7Bil; 30 — 
DxPT+. Puro desespero para retardar o 
final. 30 — ... RxD; 31 — T3T+ RIC; 
32 — T8T+ RxT; 33 — TICR DxT+; 
34 — RxD T8D/R mate. Veja o diagra- 
ma A. 


ENCONTRE TAMBÉM A SOLUÇÃO 


Polugaievsky x Antoshin 
Leningrado, 1956 


Diagrama B — As 
brancas jogam e 
ganham. Para 
encontrar à 
solução, o Elite 
A/S World 
Champion gastou 
2m54s; o Elite 
A/S 3m37s;0 
Constellation 
5m;eo G.6. 
Machine, com o 
programa Steinitz, 16miOs. 





o — 


Valesnu x Enger 
Correspondência 1972/73 


Diagrama C — As 
brancas jogam e 
dão mate em 
cinco jogadas. 
Tempos gastos 
na busca da 
solução: Elite 
AS W. 
Champion — 
6m52s; Super 9 
— 14mã4Os. 





Origem desconhecida 





Diagrama D — 
As brancas 
jogam e ganham. 
Tempos gastos 
na busca da 
solução: Super 9 
— 1m50s,; Elite 
ASW. 
Champion — 
6m30s (para 

: surpresa geral, 
gastou mais tempo do que o Super 9); 6.6. 
Machine — Imtls. 





Soluções 
jeseu 999 9LH/LLH — S 


"P+HdXO OLH — p +20 XQ — E “(eu 


-Bp ep eunjdeo e no ajeui edcauie) GO 
LLH— Zi+ghg  — | — q euesbeig 
jayeuw 92d — GS: 1Xd 

191 — vt -Br(G)D 99d — E SIZI+HALLL 
— Z'LLH GLLL — | — O euesbeia 
“"BpIpJad pIsa 91103 W "LIBJBU 

-Opuege sejaJd se à 949 — E "GA DEL 
— T:+9dX] 199d — L— guwesbei 





47 








Programas 
que escrevem programas 


ta Pi Dir Pi em am Pa ms 2 Ds Pim Pa Fm Pa em Pa Dm Pa Pes Hm Pa Pa Dm Dem Pa Dm Pe Pa Dm Pa a a Poa em 


AGORA GSE VOCE. 
AS rTINFORMALCE ES 
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barão Fa VOL E. 


SJ EINTROÓOL TODAS 
E PaRA2MmETROS 


ESTAMOS GUIAS E ciNO 


SOL UM SUPERFROGR ii 
É LISTAGEM 


COMPLETA E SEM ERROS DE Ui 
PROGRAMA GLIE. FIZ 


EXCLUSIVAMENTE Pak 


SEL LISO 


TOTALMENTE ALITÓONÓOMO E ADEQUADO 


A E JÃãO NECESSIDADES .. 


NESTE. 


MOMENTO EU ESTOU COLOCANDO Ei 


ORDEM NLUIMERTICA AE 
PROGRAMA E T[SSO UVA IT 
APENAS ALGUNS HMIINLITOS . 


SEM) 


LTinHiÃão DE. 
Vote 
ACGLiaR DE. o = 


oftware. Esta é a palavra mágica 
que faz com que um micro- 
computador — dotado do hard- 
ware adequado — seja uma ferra- 
menta de auxílio quase ilimitado para o 
homem. Nos últimos anos foram criados 
programas para quase todas as aplica- 
ções imagináveis, mas isso parece ter si- 
do pouco para alguns programadores 
norte-americanos. Eles resolveram ir 
mais além e criaram programas que, eles 
próprios, geram outros programas. 

Na verdade, os programas que escre- 
vem programas são um tipo de software 
extremamente sofisticado, capaz de pro- 
duzir programas muito simples e apenas 
de acesso a banco de dados, tais como 
mala-direta, contas a pagar e a receber 
e qualquer tipo de arquivo relacional 
que venha a substituir um fichário. Com 
eles, qualquer pessoa pode criar, em 
questão de minutos, o seu próprio pro- 
grama de banco de dados, e sem possibi- 
lidade de erros de programação. 

Nos Estados Unidos já existem alguns 
programas desse tipo, sendo que alguns 
dos mais famosos são o Creator e o Pro- 
ducer, ambos desenvolvidos para a linha 
TRS-80. O Creator, inclusive, já teve sua 
listagem completa publicada na revista 
norte-americana 80 Micro (veja a maté- 
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ria Creator, uma ferramenta de progra- 
mação, publicada nesta mesma edição). 
Ambos trabalham com um arquivo que 
contém linhas de programas semi-pron- 
tas. O usuário, no decorrer do Creator 
ou Producer, define os parâmetros espe- 
cíficos do programa a ser gerado e, final- 
mente, o programa gerador monta todas 
as linhas, dando como resultado um pro- 
grama modular, comentado e todo em 
BASIC. 


VANTAGENS E DESVANTAGENS 


Para se ter uma idéia da rapidez com 
que esses programas geram outros pro- 
gramas, basta dizer que um profissional 
da área levaria aproximadamente um dia 
para fazer um programa, para seu pró- 
prio uso, de cadastro de mais ou menos 
cem títulos de sua biblioteca técnica. O 
Creator gasta, após a entrada dos pará- 
metros, menos que dez minutos para lis- 
tar O novo programa. 

Uma grande vantagem do Creator e 
do Producer é que o método de acesso 
aos registros do programa gerado (res- 
pectivamente, Hashing e BTree) é mais 
eficiente do que aqueles geralmente uti- 
lizados pelos programadores quando de- 
senvolvem um software desse tipo. A 


função Hashing, usada em arquivos orga- 
nizados randomicamente, é um algorit- 
mo que converte a chave num código de 
referência do registro. BTree, que literal- 
mente quer dizer Binary Tree (árvore 
binária), é um tipo de estrutura de ar- 
quivos onde cada registro contém um 
ponteiro que indica onde está alocado 
no disco o registro a seguir. Ambos pos- 
sibilitam imediato acesso ao dado sem 
utilizar o demorado processo de índices, 
largamente usado. 

Como os programas gerados tanto 
pelo Creator como pelo Producer não 
chamam rotinas em Assembler, eles po- 
dem ser transportáveis para outras linhas. 

Além de criar um programa de acesso 
a banco de dados com todas essas van- 
tagens já descritas, estes programas ain- 
da permitem que se façam cálculos entre 
os campos dos registros. O que não é 
possível, no entanto, é a interação auto- 
mática de dois ou mais programas gera- 
dos — fazendo-os funcionar como um 
sistema:— sem a interferência de um 
programador profissional, que poderia 
fazer isso com relativa facilidade. 

Uma outra limitação está no tama- 
nho do registro — 255 bytes no Creator 
e 251 no Producer, que utiliza os outros 
bytes no controle do BTree. 
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DE LEIGOS A PROFISSIONAIS 


A gama de possíveis usuários desse 
tipo de programa é bem ampla. Ele serve 
basicamente a leigos em programação e 
a pequenas empresas que tenham diver- 
sos arquivos a organizar, mas que não 
justifiquem a contratação de um progra- 
mador profissional exclusivamente para 
isso. 

Por outro lado, até o programador 
profissional pode desfrutar das vanta- 
gens do Creator e do Producer. Esses 
programas podem servir como um ótimo 
ponto de partida para o profissional 
criar implementações diversas, produzin- 
do programas mais sofisticados e de apli- 
cações mais específicas. Como os pro- 
gramas gerados são todos semelhantes, 
basta analisar o método de programação 
de um, para conhecer o de todos os 
outros . Partindo do programa gerado, o 
programador não perde tanto tempo 
com a entrada de dados e criação 
de telas. 

Quem for aproveitar assim os progra- 
mas gerados, vai sentir mais facilidade 
de leitura na listagem produzida pelo 
Creator que, ao contrário da produzida 
pelo Producer, não é compactada e con- 
tém uma média de dois comandos por 
linha de programa. 

E essa diferença entre os dois progra- 
mas começa na operação. Enquanto o 
Creator pode ser utilizado por qualquer 
pessoa, mesmo leigos em programação, 
o Producer exige um grau de conheci- 
mento maior de quem for operá-lo, pois 
certamente terá que recorrer várias vezes 
ao seu extenso manual. 





Este e” o CRIADOR. Ele possibilitara” a voce gerar programas 
que criem e acessem um arquivo de dados. 


Por favor entre o nome para o programa proposto. 
Use no maximo oito letras. 
Nome do programa = .. 





Figura 1 — 4 tela inicial do Creator, numa versão traduzida para o Português. Note, comparan- 
do-a com a figura 3 (tela inicial do Producer), que ela é bem mais simples e, consequentemente, 


acessível a qualquer usuário. 


O CREATOR, PASSO A PASSO 


O Creator é um programa que escre- 
ve programas de banco de dados no 
Basic Microsoft do TRS-80. Mas como 
ele gera um programa modular, torna-se 
fácil a adaptação a qualquer DOS da fa- 
mília TRS-80. É um programa de utili- 
zação muito simples, pois usa a forma 
de pergunta e resposta para definir os 
parâmetros que vão gerar o arquivo de- 
sejado pelo usuário. Todas as informa- 
ções do Creator encontram-se na própria 
tela, não havendo necessidade de recor- 
rer-se a manuais. 

Na primeira tela (veja a figura 1), 0 
Creator pergunta pelo nome do progra- 
ma a ser gerado, a unidade de disco que 
conterá o arquivo de dados, a unidade 
onde o programa será gravado. Depois, 
o usuário é questionado a respeito do ta- 
manho máximo do seu arquivo em nú- 
mero de registros, do tamanho do regis- 
tro — que pode ir até 255 bytes— eo 
título para o programa. 

Após responder a essas perguntas, o 
usuário pode escolher um código de saí- 
da que permitirá ao operador do progra- 
ma gerado parar a entrada ou a atualiza- 
ção dos dados sem gravar as últimas alte- 


As palavras-chaves que você precisa saber 


rações, retornando ao menu. Então apa- 
rece uma série de perguntas repetitivas 
sobre cada campo do seu registro. Ini- 
cialmente, você é questionado sobre o 
tamanho do campo. Campos compacta- 
dos podem ter 8,4 ou 2 bytes loss, 
compactados) e campos alfanuméricos 
ou numéricos que não obedeçam a esse 
padrão podem ter de 1 a 255 bytes de 
tamanho.C Creator pergunta, então, se O 
tamanho que você escolheu está corre- 
to e informa quantos espaços ainda 
estão sobrando, passando para o próxi- 
mo campo até que nenhum espaço sobre 
no registro. 

Uma vez definido o campo-chave, o 
usuário descreve as mensagens ao opera- 
dor, as validações e o tipo de dado que 
está sendo armazenado em cada campo. 
No último caso, as respostas possíveis 
são: numérico não compactado (N), in- 
teiro compactado (PI), compactado 
com precisão simples (PS), compactado 
com precisão dupla (PD) e caracteres 
(C). Para rever essas instruções a qual- 
quer momento durante a execução do 
programa, basta digitar a palavra SOS 
(veja a figura 2). 

erminada essa série de definições de 
parâmetros, o Creator informa: ESTA- 





Arquivo (File) — É um conjunto 
de registros. Uma cademeta de 
nomes e telefones, por exemplo, 
é um arquivo que contém infor- 
mações sobre seus amigos. No 
computador, o arquivo é arma- 
zenado na sua própria memória 
ou em algum tipo de memória 
auxiliar, geralmente uma fita 
cassete, disquete ou disco rígido. 


Campo (Field) — É um pedaço 
de informação. Numa caderneta 
de nomes e telefones, por exem- 
plo, o nome de uma pessoa seria 
um campo de informação; seu 
endereço, outro campo e o CEP 
da localidade, outro campo. 
uma área definida que será di- 
itada ou mostrada no vídeo. 
u tamanho deve ser predefi- 
nido com um ou mais caracte- 
res e apenas esse número máxi- 
mo de caracteres pode ser en- 
trado ou mostrado nessa área. 
Um ou mais campos formam um 


Campo-chave (Key field) - É 
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um determinado campo do re- 
gistro que será sempre usado 
para armazenar, recuperar ou 
editar aquele registro. Numa ca- 
derneta de nomes e telefones, 
por exemplo, armazenada em fi- 
ta ou disco, existe um registro 
assim: 19 campo — MARIA RI- 
TA SOBRINHO; 2º campo — 
568.0000; 3º campo — Rua 
Vasconcellos, 99; 49 campo etc. 
Se usarmos para recuperar esse 
registro, o 1? campo, que con- 
tém o nome da pessoa, este cam- 
po será chamado campo-chave. 


Dado (data) - É uma idéia, de- 
finição, palavra, espe de pala- 
vras ou número. seja, é qual- 
quer informação que é armaze- 
nada por um computador ou 
que você digita num computa- 
dor. 


Default — Chama-se default ao 
valor ou nome que o computa- 
dor assume quando o usuário 


não define aquele parâmetro. 
Por exemplo: numa determinada 
etapa da execução do programa, 
ele pede ao usuário para entrar 
com o nome do arquivo em 
questão. Se o usuário entrar 
com esse nome, o computador o 
utiliza normalmente, mas se o 
usuário não responder com o 
nome pedido e apenas teclar 
ENTER, o computador vai usar 
o default de nome de arquivo 
que ele tiver. Para isso, então, 
o default para valores ou nomes 
deve ser previamente definido. 


Editar (Edit) — Editar quer di- 
zer modificar o conteúdo de um 
campo digitando-se nova infor- 
mação ou corrigindo-se a infor- 
mação que já estava no campo. 
Isso pode ser feito digitando-se 
por cima dos caracteres contidos 
no campo ou inserindo/deletan- 
do caracteres. 


INPUT - Um comando que sig- 
nifica digitar informação para 
dentro de um campo. 


Menu — É uma lista de opções 
que dá a você a possibilidade de 
escolher uma delas. Você geral- 
mente escolhe um comando do 
menu pressionando o número 
ou a letra que vem antes ou após 


a opção. 


Registro (Record) — É um con- 
junto de campos. Todos os cam- 
pos de um registro devem ter al- 
gum fator em comum que os li- 
gue. Numa cademeta de nomes 
e telefones, todos os fatos (cam- 
es sobre uma mesma pessoa 
ormam o registro daquela pes- 
soa 


Tela (Screen) — É uma área de- 
terminada por você para permi- 
tir a entrada e disposição de sua 
informação. A palavra tela às ve- 
zes refere-se também a uma série 
de caracteres e gráficos que apa- 
recem todos ao mesmo tempo 
no monitor de vídeo de seu 
computador. Uma tela deve ser 
totalmente visível por nós num 
único instante. 
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PROGRAMAS QUE ESCREVEM PROGRAMAS 


Agora temos que descrever as mensagens ao operador, 


as validaoes a serem feitas, 
rampo. Para isto, 


e os tipos de dados para cada 
faremos algumas perguntas sobre cada campo. 


Para a questao “Tipo de dados” as respostas possiveis sao: 


Numerico, 


Inteiro compactado. 


Compactado precisao simples. 
PDasonvcnvceccncos Compactado precisao dupla. B espaos. 


Caracter. 


nao compactado . 


Usa 2 espaos. 
4 espaos. 


í espao. 
Voce pode entrar a palavra SOS para ver estas 


instrucoes mais 


tarde. Pressione qualquer tecla para cont inuar. 





Figura 2 — Um trecho de tela do Creator, logo após as perguntas que definem os campos do 
registro. Observe que as explicações necessárias estão todas contidas na própria tela, juntamente 
com a pergunta ou, como no caso, logo antes delas serem feitas. 


MOS QUASE NO FIM. Depois, você de 
ve digitar uma pergunta que será feita ao 
operador para saber se ele já terminou a 
entrada de dados; a resposta deve ser do 
tipo S/N. Uma vez isso feito, o Creator 
volta a se comunicar com o usuário, in- 
formando: AGORA ESTOU COLO- 
CANDO EM ORDEM NUMÉRICA AS 
LINHAS DO SEU PROGRAMA. ISTO 
VAI TOMAR ALGUNS MINUTOS... O 
Creator leva cerca de três minutos para 
gerar um programa simples como agenda 
com nome e telefone (50 registros). 

A tela do programa gerado propor- 
ciona as seguintes opções: entrar dados 
(E), listar um registro (L), verificar to- 
dos os registros (V), atualizar um regis- 
tro (A), retirar um registro (R), iniciar 
um arquivo (1) e sair do programa (S). 


OPERAÇÃO DO PRODUCER 


O Producer, do norte-americano Ro- 
ger Smith, é um programa bem mais so- 
fisticado e extenso que o Creator, con- 
tendo inclusive algumas rotinas em 
Assembler. Ele gera programas de ban- 
cos de dados em BASIC e dá possibilida- 
de a uma maior interação e participação 
(as telas sao feitas pelo próprio usuário), 
embora possua um nível maior de com- 
plexidade de operação, o que exige di- 
versas consultas ao extenso manual que 
o acompanha. O Producer opera em 
DOS-Plus 3.4 e uma de suas vantagens é 
a comunicação constante com o opera- 
dor, dando opções de conserto e alertas. 
Assim como o Creator, é um programa 
para ser rodado em equipamentos da li- 
nha TRS-80, só que necessita de dois 
drives, pois o sistema sozinho ocupa um 
disco inteiro. 

Na primeira tela do Producer (veja a 
figura 3), aparecem os dois menus prin- 
cipais. A menu A consiste em ferramen- 
tas e utilitários que o usuário vai usar 
para a geração e atualização do progra- 
ma. Já o menu B possui todas as etapas 
para a construção propriamente dita do 
programa a ser gerado. Ambos são for- 
mados por seis itens. 

O primeiro item do menu A é O 
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Planning Form (formulário de planeja- 
mento), que simplesmente imprime um 
formulário contendo todos os parâme- 
tros que você precisa definir para gerar o 
seu programa (nome do programa, data, 
objetivos, número de campos e registros, 
nome, tamanho e tipo dos campos e cál- 
culos do programa). Com todos esses da- 
dos à mão, é muito fácil digitar o que 
for pedido pelo Producer, pois todas as 
respostas ao programa estarão no formu- 
lário. 

O segundo item do menu A é o Lo- 
gon Filename (arquivo de nomes), que 
serve para o usuário determinar quais 
vão ser os seus default de nome de ar- 
quivo e de drive. Com isso, o uso dos 

















DISTRIBUTED BY 


HEART OF TEXAS (2) 


The Producer 


A PROGRAM DEVELOPMENT SYSTEM 


PLANNING FORM 
LOGON FILENAME 


COMPUTER SYSTEMS (3) REFERENCE FORM ]<3)> MAKE BASIC LINES 
(4) MAINTAIN FILES ]<4)> BUILD REPORTS 
PRESS (<A) OR <B> TO (5) FUTURE MENU <3> BUILD PROGRAM 
SELECT DESIRED MENU (6) UTILITY"S MENU [| <6)> EXIT TO DOS 
A» <B> 


módulos do Producer torna-se mais rá- 
pido, uma vez que bastará teclar EN- 
TER cada vez que for pedido um desses 
dois itens. O terceiro item é o Reference 
Form (formulário de referência), que 
mostra uma página de relatório que con- 
tém informação sobre o programa que 
está sendo criado. 

Ele mostra, numa tabela, o nome de 
cada campo e os respectivos número do 
drive e tamanho do campo, inclusive o 
número de cálculos, que dirá quantos 
cálculos estão ligados âquele campo em 
particular. 

O Maintain Files (manutenção de ar- 
quivo) é o quarto item e dá quatro 
opções: iniciar o arquivo, balancear os 
arquivos, reconstruir os arquivos e retorno 
ao menu. E por último há o Utility 's Menu 
(menu de utilitários), que contém os 
utilitários operacionais do sistema, para 
gerar e manter o programa, tais como 
listar um diretório, apagar um arquivo, 
transferir um arquivo, converter um ar- 
quivo do DOS-Plus para TRSDOS. 

O menu B começa com Create a 
Screen (criar a tela), que permite ao 
usuário, através dos buffers, o controle 
de até oito telas. O programa lista os 
comandos de edição de tela (veja a figu- 
ra 4) e um dos itens, o Help (ajuda), 
permite visualizar, sempre que necessá- 
rio, esses comandos. Os itens seguintes 
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CREATE A SCREEN 


(2) EDIT BASIC DATA 






Figura 3 — A tela inicial do Producer, que oferece as duas opções de menu. Como se pode ver, 
quando utilizado pela primeira vez, o usuário terá que recorrer ao manual para saber o que cada 


item do menu faz. 













(1) 
(2) 
(3) 
(4) 
(3) 
(6) 
7) 


LOAD a Buffer from Disk 
CLEAR Selected Buffers 
FUTURE Expansion 

SAVE Buffers to Disk 
EDIT:Screen Creation Mode 
TRANSFER Buffer to Buffer 
HELP: Show EDIT Commands 
RETURN to Master Menu 


SELECTION. ..... 


Figura 4 — À primeira o 


THE PRODUCER: B1i-SCREEN GENERATOR 
CREATE AND DEFINE A CUSTOM SCREEN 


DISPLAY a Buffer to Screen 







BUFF4 MEMLOC STATUS 
ESSE Rnnnnrnnnnnnnnnnnenas 
1 -- 55009 --OCCUPIED 
-- 54033 --OCCUPIED 
-— 57057 --EMPTY 
-- 58081 --EMPTY 
59105 --EMPTY 
-— 60129 --EMPTY 
-— 61153 --EMPTY 
-— 62177 --EMPTY 
63201 --OCCUPIED 



























ONU LrUN 
. 
| 









do do menu B (Create a Screen) gera esta tela, que contém todos os 
comandos de edição de tela listados. 


MICRO SISTEMAS, agosto/84 


são Edit Basic Data (editar dados em 
Basic), que permite editar nessa lingua- 
gem o que o usuário criou na tela; Make 
Basic Lines (fazer as linhas do programa 
em Basic); Build Reports (construir rela- 
tórios), que serve para construir as li- 
nhas de mensagem da impressora; Build 





Roberto Quito de Sant'Anna 


À opinião de quatro usuários 


Program (construir o programa), que 
reúne todos os dados para enfim montar 
o programa; e Exit to DOS (saída para o 
DOS). Mais rápido do que o Creator, o 
Producer leva entre um e dois minutos 
para gerar um programa, dependendo da 
sua complexidade. 





“Tanto o Creator como o Producer são macro-programas capazes de liberar qualquer 
usuário de micro da dependência das software houses e da pasteurização dos programas 
por elas comercializados, uma vez que permitem a qualquer pessoa, sem maiores 
conhecimentos de programação, construir um programa totalmente autônomo, 
perfeitamente adaptado às suas necessidades específicas e com nível de sofisticação 
bastante elevado. [Em cursos de computação, esses programas deveriam ser citados, 
porque representam uma evolução no campo do software, constituindo-se o que se 
poderia chamar uma segunda geração de programas: os programas que geram programas”. 


(Quito é professor de Informática da Academia Militar das Agulhas Negras, em Resende, 
e assessor técnico da MICRO SISTEMAS. Formado em Engenharia de Telecomunicações, 


tem 42 anos e é usuário de um CP-500.) 


João Henrique Volpini Mattos 


“Os programas que geram programas têm que ser encarados como uma ferramenta de 
trabalho apenas, pois não vão resolver por completo 99% dos casos. E mais útil para um 
programador profissional ter vários utilitários de edição de vídeo, para definir formato e 
campos de impressão e para acessar O registro, do que um programa como o Creator ou 
Producer. O Producer fica restrito a uma string com um byte para cada caráter ou 
número inteiro. Não possui rotina de compactação e serve apenas para mala-direta c 
fichário com até 256 caracteres. Não faz uma crítica mais detalhada e as restrições são 
pouco restritas, pois um programa geral não pode prever tudo”. 


(Volpini é programador do Estaleiro Mauá, usando os equipamentos IBM 4341 e 


HP 9830. 
num Dismac 8002.) 


Renato Degiovani 


ormado em Engenharia Naval, tem 27 anos e presta serviços como autônomo 


“Como utilização doméstica, eu não vejo sentido para um banco de dados. Porém, 
dentro das profissões liberais existem áreas onde seria interessante a implementação de 
um BD. Um caso específico seria a criação de um fichário com as características físicas 
de várias especificações de papéis, isso dentro da minha área profissional (programação 
visual). Num micro, esse fichario daria condições ao usuário de escolher, entre vários 
papéis,o mais adequado para a realização de um trabalho gráfico eficiente. Isso não tira o 
emprego do programador, mesmo porque tais utilizações não justificam a contratação 
dos serviços desses profissionais. O próprio profissional liberal pode, com a utilização 

do Creator ou Producer, dar solução aos seus problemas especificos de uma forma mais 
imediata, pois bastam uns poucos minutos para se ter o resultado final. Se levarmos em 
conta ainda que não haverá o trabalho de digitação, teste c depuração do programa final, 
então a opção pelo Creator ou Producer passa a ser muito interessante”. 


(Renato é diretor técnico da MICRO SISTEMAS e usuário dos micros do CPD da 
Revista. É formado em Programação Visual e Desenho Industrial pela PUC do Rio de 


Janeiro e tem 27 anos.) 


Ivan Camilo da Cruz 


“Os programas que geram programas não tiram emprego de nenhum profissional, embora 
a primeira vista isso possa parecer, porque a firma que compra um programa desses não 
iria contratar mesmo um programador. Como profissional, seria interessante ter um 
programa como esse para aproveitar as rotinas de acesso e de leitura de tela, que são 
muito eficientes e de alto nível. O grande defeito desses programas, porém, é a falta de 
flexibilidade, pois só permitem criar programas para um tipo específico de problema, isto 
é, só serve para gerar arquivos-fichário. Outro ponto: se no Brasil ele for vendido ao 
mesmo preço que nos EUA (mais de 200 dólares), será mais barato contratar um 
pos, apesar deste levar cerca de dois dias para fazer o que o Creator ou o 


roducer podem fazer em uma hora”. 


(Ivan é programador do Instituto de Química da Universidade Federal do Rio de 
Janeiro, onde trabalha com um CP-500. Estudante de Física da mesma universidade, 
tem 20 anos e trabalha como programador autônomo num DGT-100.) 
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A COLADORA DE BLOCOS DE PAPEL 
DA LAURENTI. 


COLA EM MENOS 


DE 30 SEGUNDOS. 


Colabloc - 1º coladora nacional com 
tempo total de operação máximo de 
30 segundos. 

Produto de mesa, compacto, simples e 
seguro, ideal para escritórios que não 
exijam sistemas complexos de 
encadernação. 

Perfeito para atender às necessidades de 
usuários de computadores e gráficas, 
cujo volume de trabalho de 
encadernação não seja grande. 
Executa um trabalho limpo por não 


necessitar de contato manual com a cola. 


Não exige instalações especiais, sendo 
apenas necessário uma tomada 
rnonofásica de 110 volts 50/60 Hertz. 


MS laurenti 


EQUIPAMENTOS PARA PROCESSAMENTO 
DE DADOS LTDA. 
Matriz: Rua Theodureto Souto, 308 - Cambuci 
PABX: 270-8244 - Telex: (011) 36305 - São Paulo - SP 
REPRESENTANTES TÉCNICOS E COMERCIAIS 
EM TODO O BRASIL. 


CEP: 01539 


TOABLDE 









* Patente Requerida 





Cam 


PROGRAMAS QUE ESCREVEM... 


Dois 
programas 





- exemplos 


Para que você, leitor, possa ter uma 
idéia mais clara de como são esses pro- 
gramas gerados pelo Creator e pelo Pro- 
ducer, a equipe do CPD de MICRO 
SISTEMAS desenvolveu dois programas- 
exemplos a partir desses programas gera- 
dores. Através de suas listagens, você po- 
derá analisar as rotinas e técnicas de pro- 
gramação utilizadas e avaliar, você mes- 
mo, a gama de possíveis utilizações que 
o Creator ou o Producer podem ter para 
um usuário ou programador. 





Uma produção 
do Creator 


ste programa, desenvolvido a partir 

de uma versão em Português do 
Creator, pode ser usado por você para 
relacionar os pertences domésticos de 
sua residência ou ainda de uma casa que 
tenha incluído no aluguel alguns bens 
perecíveis. Veja na figura S a primeira 
tela desse programa, que mostra o menu. 


* * * CADASTRO DE UTILIDADES DOMESTICAS 


Entrar dados 

Listar um registro 

Verificar todos os registros 
Atualizar um registro.... 


Retira um registro... 

Iniciar um arquivO.-.ceueuese 

Sair do programa. .ccoccuncrcccoccas 

Entre a letra escolhida; nao e” necessario usar RETURN 

Para voltar ao menu sem gravar as entradas ou alteracoes entre 
* em lugar de um campo. 





Figura 5 — Este menu é a primeira tela do programa gerado pelo Creator (no caso, o programa- 
exemplo Cadastro de Utilidades Domésticas). Veja a figura 7 (tela do programa gerado pelo 
Producer), que é uma tela criada pelo usuário, ao seu gosto pessoal. O Creator não permite a 
criação de telas próprias; todos os programas gerados terão este menu, só variando o título. 


E” este?(Por favor entre S se estiver correto) 
Item: COLHER 

Descr icao:COLHERES DE CHA” 

Quant idade: 12 





F jap 6 — Quando À rn a opção LISTAR UM REGISTRO (L) do menu do programa gerado 
pelo Creator, após digitar o campo-chave, aparece esta tela. Observe que até nesta etapa, ao ro- 
dar o programa gerado, são emitidas mensagens para checar se o registro mostrado é o que se 
quer. Esta pergunta é importante principalmente quando seu arquivo tem várias palavras-chave 
iguais. E o caso deste programa-exemplo: existem vários campos-chave COLHER, com campos 
secundários (descrição) que os diferenciam entre si (COLHERES DE CHÁ, COLHERES DE 
SOPA, COLHERES DE SOBREMESA etc.). Deste modo, se ao chamar COLHER o programa 
mostrar as DE SOBREMESA e você quiser as DE CHÁ, basta responder N à pergunta que en- 
cabeça a tela, e o programa irá mostrar sucessivamente todos os registros cujos campos-chave 
sejam COLHER. 


e Campo nº 2 — DESCRIÇÃO — Nes- 
te campo especifica-se mais o item 
armazenado, com descrições do tipo: 
PRATO DE SOPA, PRATO DE SO- 
PA DE PORCELANA INGLESA etc. 
A descrição não deve ultrapassar 36 
caracteres. 


O programa-exemplo chamado LAR 
aceita o máximo de 200 registros. Cada 
registro tem o tamanho máximo de 54 
bytes e é composto dos seguintes cam- 
pos: 

e Campo nº 1 — ITEM — Aqui você 
define, em até 16 caracteres, o uten- 
sílio a arquivar de forma mais geral. 
Por exemplo: se existem vários tipos e 
de prato, nesse campo você deve digi- 
tar apenas PRATO. Veja outro exem- 
plo na figura 6. O campo nº 1 será o 
campo-chave do arquivo. 


Campo nº 3 — QUANTIDADE -— 
Em dois caracteres numéricos, você 
deve definir o número de itens. Este 
campo é armazenado na forma PI 
(inteiro compactado). 


Cadastro de Utilidades Domésticas 


1 REM mmmunsNOME DO PROGRAMAILAR/BASEmUM ma 
2 REM mumumaNCME DO ARQUIVO DE DADOS:LAR/DATIOumumua 


3 REM meme nODADOS NA UNIDADEO nm mmmm 


4 REM nesunsTamanho maximo do arquivo e" 200 Registroszmuasa 
5 REM eenesaTamanho do registro 54 Compactado 4 por setorsmunmm 


10 REM Troca discos - Reinício aqui 
20 CLEAR 3000 

30 OPEN“R”,1,“LAR/DAT:O” 

40 ONERRORGOTO25001 

S0 DIMF$(22),6%(22) 


60 FIELD 1,14AS F$(1),36AS FS(2),2AS F$(3) 


180 PRINT“Para voltar ao menu sem gravar as entradas ou alteraco 
es entre +“ em lugar de um campo.” 

190 ANS=INKEYS:IF ANS="“THEN 190 

200 IF ANS<C)“EVAND ANSC)LVAND ANSC)“AVAND ANSC)“RVAND ANSC)DVIVA 
ND ANS<)“S“AND ANSC)“U"THEN 60 

210 IF AN$="E“THEN 1000 

220 IF ANS="L“THEN 10000 

230 IF AN$="V“THEN 35000 

240 IF ANS="A“THEN 14000 

250 IF AN$="R“THEN 142000 

260 IF AN$=“I“THEN 32000 


70 FOR I=1 TO 22:68(1)=7“:NEXTº:FC=0:UF=0:68=""3CLS 270 CLOSEINEW 


80 PRINT” 
90 PRINT 
100 PRINTYEntrar dados 

b ad 

1140 PRINT “Listar um registro 

(L)” 

120 PRINT'Verificar todos os registros 
(U57 

130 PRINTAtualiaar um registro 

SA 

140 PRINT “Retira um registro 

<R>Y 

150 PRINTOIniciar um arquivo 

) Lad 


160 PRINTSair do programa 

> “e 

170 PRINT“Entre a letra escolhida; nao e” 
“e 


52 


CADASTRO DE UTILIDADES DOMESTICAS 


necessario usar RETURN 





41000 CLS:REM senmas Inicia entrada ensnas 

4005 FC=FC+1í 

1006 ONFCGOSUB1040,14060, 141400 

41007 IF FC< 3 THEN 14005 ELSE 41180 

1040 PRINTºDigite o itemi” 

41020 LINE INPUT GSC(L)FIFOS( 4 )=74“THEN 40 

1030 IFG$S(14)="“THEN PRINTO=es ITEM INVALIDO saw “2GO0TO 10410 

41050 RETURN 

1060 PRINT'Descreva o items” 

1070 LINE INPUT 6$(2):1IFGS( 2 )="*“THEN 60 

1090 RETURN 

1400 PRINT Digite a quant idades” 

4404 IF UF<>O AND 6$=7“ THEN 6$= 65(3) 

1440 LINE INPUT 6$(3)2:IFGS( 3 )=7*“ THEN 60 

1141414 IF UF<)0 THEN Gi=INSTR(G$(3),7+7)2IFG1)0THEN GX=CINTIVAL(OS 
(3) )+VAL(GS))265(3)=MIDS(STRE(GX),2+SGN(GX)/2) 

1412 IF UF<>5O THEN GI=INSTR(6$(3),7-")2IF 61450 THEN GX=CINT(-VAL 
(GS(3))+VAL(0S))166(3)=MIDS(STRS(GX).2+5SGN(GX)/2) 
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Estabilizador Eletrônico 


1420 IF ABS(VAL(G$(3))))32767 THEN PRINT“Numero muito grande. Te 

m que ser de -32767 a 32767.º: GOTO 141400 

41430 IF INTCVAL(GS(3)))C)ÍVALCGE(3))THEN PRINT Tem que ser numero 
inteiro.” :GOTO 1100 

1140 IFVAL(GE(3)))32000THEN PRINT NX QUANTIDADE MUITO ALTA mmm” 


sG0TO 1400 


1450 IFVAL(CGS(C3))<OTHEN PRINT ums QUANTIDADE INVALIDA mmm“:GOTO 
1100 

1160 GE(3)=MKIS(VAL(GS(3))) 

1170 RETURN 

1180 Z78=6$5(1):GOSUB 26000 

14190 REMuNUNHS Procura espaco p/ registro emuuna 

1200 GOSUB 14210 :G0TO 1260 

1210 RP=RP+1:IF RP> 200 THEN RP=í 

1220 RX=(RP-1)/ 4 +15PZ=(RP-1)-(RX-L)N 4 

1225 FIELD 1, 54 “PX AS DXS, 54 AS ZYS 

1230 GET 14,RX:IF ZY$<CHR$(250) THEN 12140 

1240 FIELD 1,54»PZ AS TXS,16AS FS(1),I6AS F$S(2),2AS FCI) 

1250 RETURN 

1260 FOR K=1 TO 3- 

1270 LSET FSCK)=GS(K)ENEXT: PUT 4,RZ 

1280 PRINT “Voce ja" terminou ? «<S/NY” 

1290 TMS=INKEYS:IF TM6="““THEN 1290 ELSE PRINT TMS 

41300 REMn=w Se terminou, fim. Se nao retorna ao menu uma 
1310 IF TM$<()"S” AND TMS<()“N” THEN PRINT"Por favor, responda” ;”S 


“4” ou “;"NºEGOTO 1280 

4320 IF TM$="S“THEN 60 

4330 FOR I=í TO 22:6$(1)=7“:NEXT I:FC=0:UF=0:CLS:G0T04000 
40000 REM suumus Rotina de verificar registros mumasu 
410040 CLS:GOSUB 27000 “Tenta achar o 

o 

10199 REM sunses Descompacta os registros no arquivo para aprese 
ntar tenuna 


registr 


40200 G0SUB28000 

10799 REMnsnuum Apresenta o registro se a chave for igual umum 
“a 

40800 GOSUB 29000 

40860 GOTO 40 

11000 REM summnus Rotina de atualizacao “esxmumas 

14040 CLS: GOSUB 27000 “Tenta achar o registr 
o 

11199 REMesuuna Descompacta os campos no arquivo para apresentar 
nen 

11200 GOSUB28000 

11799 REM nunnuis Apresenta o registro se a chave for igual mmummus 
” 

41800 GOSUB 29000 

11810 PRINT Qual e” o numero do campo que voce quer atualizar?” 
411820 INPUT UF 

11840 IF UF) 3 OR UF(<1 THEN PRINT “Campo ilegal“:GOTO 141810 
141860 ON UF G0SUB10140,1060, 1100 

11865 RX=(RP-1)/ 4 +173PX=RP-L-(RX-L)R 4 

44870 IF UF<(> 4 THEN 11900 ELSE Z2$=68S( 1 ):FIELD1, 54 “PZ AS DX 
$, 54 AS DLSILSET DLS=STRINGS(255,250):PUT 1,RZ: GOSUB26000 
11890 GOSUB 12140 

1141900 REMunnuna Saida uwmmma 

14903 IFUFC)>3ITHENGS(3)=MKISCVAL(GS(3))) 

11995 FIELD 1,54uPX AS TX$S,16AS F5(1),36AS FE(2),2AS FSB) 

11998 REMenas Insere campos alterados no registro e envia wuu 
11999 FOR I=iTO 3 ISLSET FECI)D=GSCI)INEXTISPUT 1,RXZ7 GOTO 40 

12000 REM umunua Retirada de registro uuumu= 

12040 CLS: GOSUB 27000 “Tenta achar o registro 
121499 REMENNNNa Descompacta os campos do arquivo para apresenta 
r wusamma 

12200 GO0SUB28000 

12799 REMennnNan Apresenta registro se a chave for igual summmm 
12800 GOSUB 29000 

12900 REMene* Apaga codigos escritos em todos os campos suma 
12905 RX=(RP-1)/7 4 +12ºPL=(RP-1)-(RX-L)E 4 

129140 FIELD 4, 54 vPX AS DXS, 54 AS DL$S: LSETOLS=STRINGS(255,25 


O)sPUT 4,RX:GOTO 460 
22001 DATAItem: 
22002 DATADescricao: 


22003 DATAGuant idade: 





25000 REM sumunsROTINA DE ERRONNNNNH 

250014 IF ERL(<40000 AND ERL>14000 THEN PRINT“Erro provavel nas val 
idacoes de campos” 

250140 PRINT“Erro encontrado na linha”sERL 

25020 PRINT“Erro W=";ERR/2+17CLOSE:ZRUN 

25999 REMenuNuas Algoritimo de Hashing mmmxnx 

26000 FOR ZZ=1TOLENCZZS) 

26010 XH=XH+ZZmASC(MIDSCZZS,ZZ,1)) 

26020 NEXT ZZ 

26030 XxH=XH=XHEXHEXE=STRECXH)ERP=VAL(CMIDS(XS,5,4))2XWH=0 

264040 RP= 200 “RP/9999: RETURN 

27000 REMenunus Procura registro sumumma 

27010 GOSUB 4040 :KF$=68S( 14 5 

27020 05=0 

27030 ZZ$=KF$:GOSUB26000 'vai a rot.de hashing pegar pos. 
27040 RP=RP+L2IFRP)> 200 THEN RP=1 "nao achou? volta p/ Hí 
27045 RX=(RP-1)/ 4 +12:PZ=(RP-1)-(RZ-LD)N 4 ú 

27046 FIELD 4,54uPX AS TXS,164AS FS(1),36AS FS(2),2AS FSC3) 

27047 IF 0S=í THEN GET 1 ,RZIRETURN 

27050 GET 4,RX:IF LEFTS(FS(C 1 ),LENCZZS))=ZZ25 THEN RETURN 

27055 FIELD 4, 54 “PX AS DXS, 54 AS ZY$:GET 1,RXEIF ZYS=STRINOS 
( 54 ,255) THEN PRINT Registro nao localizado.” RUN 

27057 FIELu 1,54uPX AS TXS,16AS FS(1),36AS FS(2),2AS FSC3) 

27060 GOTO 27040 "Nao, tenta proximo. 

27999 REMennX== Descompacta os campos do registro wusmua 

28000 6$(1)=F$S(1) 

28010 68(2)=F$S(2) 

28020 68(3)=STRS(CVI(CF$S(3))) 

28998 RETURN 

“8999 REMenunnz Apresenta registro encontrado wunmmsa 

29000 CLS:IF 0S=0 THEN PRINTYE'* este?(Por favor entre S se estiv 
er correto)” 

29040 FOR I=1TO 3 

290720 READ R$S:PRINT R$,7:7;6SCI);TAB(SO);;Campo W“sGI 

29030 NEXT: RESTORE 

29035 IF 0S8=1 THEN RETURN 

29050 ANS=INKEY$S:IF AN$="“THEN 29050 

29055 IF ANS<>“S“THEN GOSUB 27040:G0SUB28000:G0TO 29000 

29999 REMensun= Validacao de campo numerico umas 

30000 CD=INSTR(CDS,CHR$(32)):IF CD>1 THEN CDS=LEFTS(CDS,CD-1)+MI 
D$(CD$,CD+1):607030000:ELSE IF CD=14 THEN CDS=MIDS(CDS,2):6G07T0300 
00 

30002 CD=INSTR(CDS,“-“):IF CD>0 AND INSTR(CD+1,CDS,“-“)>0 THEN E 
=135RETURN 

30005 FORZZ=1TO LEN(CCDS) 

300140 IF MIDS(CDS$,ZZ,1)<“070R MIDS(CDS,ZZ,1))“9“THEN IF MIDS(CDS 
,22,14)()"."AND MIDS(CDS,ZZ,1)<)"-“THEN E=1: RETURN 

30020 NEXT ZzZ 

30030 RETURN 

30999 REMnnna Validacao de campo alfabetico mun 

31000 FOR ZZ=1 TO LEN(CDS) 

34040 IF(MIDS(CDS,ZZ,1)<“A”OR MIDS(CDS,ZZ,1))“Z“)AND MIDS(CDS,ZZ 
, 1)<)CHR$(32) THEN E=1 RETURN 


314020 NEXT ZZ 
314030 RETURN 
32000 REM semenuInicia o arquivo HASHEDemm ms 
20140 PRINT“Todos os dados anteriores, se existirem, serao destr 
uidos.“ 


32020 PRINT“Para continuar, pressione a tecla C” 

32030 ANS=INKEY$S:IF AN$="“THEN 32030 ELSE IF ANS<)“CYTHEN RUN 
32035 PRINT“Um momento, por favor.” 

32040 FIELD 41,255 AS AZ$,1 AS DZS:LSET AZS=STRING$S(255,255)* LS 
ET DZS=CHR$(255) 

32050 FOR I=1 TO SO :PUTL,I:NEXTERUN 

35000 FOR K=0 TO 499 :RP=K:05=1:605SUB27040 

35005 FIELD 1,54=PZ AS TXS,16AS FS(1),IGAS FE(2),2AS FSC3) 

35010 IF FS(<( 4 ) >» CHR$(249) THEN 35990 

35050 GOSUB 28000:REM Descompacta para mostrar 


35760 GOSUB 297000:REM Mostra 
35970 FOR J=1t TO 2000:NEXTJI:REM Espera um pouco antes do proximo 
35990 NEXTK:GOTO 40 


05 ANJOS DA GUARDIAN 


Proteção integral para o seu Micro 


mini RE 
Proteção ultra-rápida contra variações 
da tensão da rede em até + 22% 





di houvesse acontecido. 
Í 
a ocncidede do | Capacidade de 200 V 

0.25, 0.4,06,0.8 very rir 
Bateria interna 
com autonomia 
de 90 minutos 
a plena carga. 





Gerador Eletrônico 
Quando a rede elétrica faltar, GERATRON 
continuará alimentando o seu micro 


R. Dr. Garnier, 579 - CEP 20971 - Rocha -Tels.: PABX (021) 261-6458 - Direto 201-0195 - Telex nº (021) 34016 - Rio de Janeiro - RJ 
Representante São Paulo - Tel.: (011) 270-3175 - Representantes em todas as capitais. 


como se nada 





NO [DRICA 


Linha Especial para Micros 
Proteção completa para o seu micro, 
mantendo a alimentação altamente 
estável e sem interrupção. Forma de 





0.6, 1,1.5,2.5,3.5e 5 KVA. Opera com 
quatro baterias comuns de 12 volts. 


GUARDIAN 


EQUIP. ELETRON. LTDA. 





onda senoidal. Capacidades de 0.25, 0.4, 


PROGRAMAS QUE ESCREVEM PROGRAMAS 





Uma criação 
do Producer 


Programa teste 


CADASTRO DE ECEHNS 


criado pelo PRODUCER, no CPD da MICRO SISTEMAS 


OPTIONS MENU FILE STATUS 
(DJELETE A RECORD LAST RECORD ACCESSED-)4 
programa-exemplo, chamado Ca- (S)EARCH FOR ANY KEY 4 ACTIVE RECORDS 


dastro de Bens, foi desenvolvido (R)JEPLACE A FIELD 4 DELETED SLOTS OPEN-)0 


no Producer original, em Inglês. Ele ser- (BJATCH 


ve para criar um arquivo com todos os 


ADDITION MODE FILENAME JBENS/DAT 


(E)XIT TO MAIN MENU ERRÓR STATUS-—-) 





dados relativos aos seus bens pessoais, PRESS NUMBER BY MENU CHOICE 


desde imóveis até dólares. Veja na figura 
7a primeira tela gerada pelo programa. 
O registro desse arquivo aceita um 
máximo de 128 bytes, sendo alguns de 
controle do método de acesso utilizado 
e os outros dispostos nos seguintes cam- 
pos: 
e 19 campo — NATUREZA — Ele deve 


Cadastro de Bens. 


Figura 7 —- 4 primeira tela do programa gerado pelo Producer, no caso o programa-exemplo 


especificar, em até 12 caracteres, Natureza: ACOES 


qual o tipo de bem, como AÇÕES, 
APARTAMENTOS, JÓIAS etc. Montante: 1000 
e 29 campo — REFERÊNCIA — Defi- 
ne melhor a que bem você está se re- 
ferindo. Por exemplo: se a natureza 


Referencia! BANCO DO BRASIL 


70000.00 
Unidade: 70.00 


Obs: CORRETORA DE VALORES POUPE LTDA 


for APARTAMENTO, a sua referên- 


cia pode ser o endereço do imóvel. 
Esse campo pode ter o tamanho má- 
ximo de 25 caracteres. 





Anotacoes ou observacoes genericas. 





e 39 campo — MONTANTE — É o Figura 8 — Esta é a tela gerada pelo programa Cadastro de Bens ao se selecionar a opção (2) 
número de bens que você possui da- SEARCH FOR ANY KEY do seu menu. Ao contrário do Creator, no Producer todas as telas 


quela natureza. Tem até 5 caracteres têm que ser produzidas pelo usuário. 


numéricos. 


e 49 campo — UNIDADE — Valor uni- vação, como HERANÇA DAQUELE 
tário do bem descrito. Pode ter até 9 TIO RICO, PRESTAÇÕES SENDO 


caracteres numéricos. AMORTIZADAS 


e 59 campo — OBS — Neste espaço vo- desde que não ultrapassem 58 carac- 


cê pode fazer qualquer tipo de obser- teres. 





1 '“PRO/BAS..02/25/83.. PROGRAM 

OF THE PUTURÊ. DISTRIDUTED Be FERAS COMPUTER SYSTERE PD A 
JO REM eee PROGRAM NOME = CADASTRO DE BENS 

11 “CRERTED By RENATO DEGIOVANI ON 10/07/84 

15 S=PEEK(-108) :!N=PEEK(-31) 

30 CLEBROICLERR MEM-4500:DEFINTA-Z:DEFDBLM 

32 ONERRORGOTO64900' ALL ERROR TRAPS 

34 DIMAS, 18,X,H,Y,.F,PUS,FXS,CS,PF,LA,IS,CLO,PU,FZ,FSS,FX,FY,A,US,FS,COS,CP,FL,Z, 
KES,AS,NF,DS,Z6,RF,TAS,Z3,77,FLS,DUS,B1S,BZS,B3,Z19,B9,PRS,EM,KF, Bá, XZ,FO,EF,K2Z, 
Q0.FZ8,53,04,58,54,],NL,RFS,TTS,FOS,E9PS,GIS,RES 

ss DIMSF,RN,SCS,Z0,LI,DL,II,RE,CA,B3S,D4s, BSS, BRS,ERS RES, BDS,LT.SG, TVA ,G19,628, 
G4%,Z5,PH,CE, T28,ED,XX,DSS,B7,TZ2,RC,BD,PSS,61,62,ELS,NR,IG,PRS,GT,D1,D3,FGS,00S, 
EZs,PL,H1,HZ,H3,LS,EG,P, XI, IPS,Z4,PG, XXS,CAS,BS,BO,B1,28 

36 DIMZL,RRNS,LILZ,LI,L4,X6 

“O DIM BS(35),C9(35),0(35,3),69(35) AAS(3S) 16(35) BTSC3S), TOC IS) RS LG) ,RMS( LO), 
KES(10),698(35),B8(200)1SC8="DSRBE" 1CS=B:FS=30:PR$="-"1B0TO47 


41 PRINTOO, E amem SD 0 mm oo an — —n=20 = 


2 ECO THOM e dO cRINS> mimo 


43 PRINT"Programa teste críado pelo PRODUCER, no CPD da MICRO SISTEMAS 
nd 

















44 PRINT” “4 






46 PRINTCHRS(31) RETURN 

47 CLSIGOSUB41 DISPLAY TITLE 

SO IF FZ9="" THEN FZ6="BENS/DAT” 

o PRINTES1Z,"“1IPRINTCNOME OF YOUR DATA FILE (DEFAULT="sFZS5")-==)" ELINEINPUTFZ 






52 IF FZs="" THEN FZ8="BENS/DAT* 

alho cosa et A STANDEY--CHECKING FOR A FILE COLLED--)"IFZS)" ese" prP 
ai, 

54 DATAISZ717,-6902,6,9038,9054,-5290,11017,-18567,2344,0254,8382,3332,6187,-7693 

1=13967:FORX=0TOL4!READRS(X)INEXT 

55 CS=081FS=301/PRS=CHES (045) “FLASH RATE & PROMPT 

50 DEFFNCP=236*PEEK(16417)+*PEEK(16416)-15360!POKEL6419,1431Eit=" aee BOUNDORY LIM 

IT ses ":EZS="s0es TLLEGAL CHARACTER ese" EPS=STRINGS(28,191)+STRINGS(28,8) 1DEFF 

“SS (B)=RIGHTE(STRS(A) LENCSTRE(A))=1) 

58 COSsCHRS(13)+CHRS (64) +*STRINGS (2,8) +*CHRS(P)+CHRS(PL)<CHRS(10)+*CHR$S (24) +*CHR$(ZS 

J*CHRS(TL)*CHRS(Z7)+CHRS(7)*CHES(41)' INKEY CODES 

76 KES(1)=" ABCDEFGHIJKLMNOPORSTUVHX YZ 'USZE()01=-()7,./1+*1234567890" !JKES(Z)="012 

5456789 +—-. "IKES(3)="YN “IKES(4)=CHR$(13)' INKEY RESTRICTIONS 

77 KESCS)=""IKESCS)W""IKES(7)=""IKES(B)=""IKES(P)m" "E 

35 S3=11S4=S:RC=1281EM=7OBINFES: DS=1 1Di=034:DI=B9BIDL=S9 “SYSTEM PAROMETERS 

36 "“INKEY DATA 

37 DATALZ,266,1,25,332,1,5,458,2,10,475,2,50,581,1,13,433,21KF= 1 1KZ2=Z 
















Cadastro de Bens 


PELO FGTS etc, MONTANTE pela UNIDADE. 


registro do arquivo criado. 





PO FORX=1TONF+DSIRENDD(X,1L),D(X,2),D(X,3):NEXT 

99 G60SUB160160SUB9300:CLOSE:GOTOLSZO'G0O MENU 

105 FORX=1TOCS: IS=INKEYS:IFIS()""“THENPRINTCHES( 15); !RETURNELSENEXTIPRINTCHRS( 14) 
F:FORX=1TOCS: IS=INKEYS:IFIS()"“THENPRINTCHRS (15); !RETURNELSENEXTIPRINTCMES (15)141 
GoToLos 

109 '“SEBRCH TESTS 

110 IFTAS=FOSTHENFO=-1 IRETURNELSEFO=0: RETURN 

111 IFTAS(FOSTHENFO=-1 !RETURNELSEFO=0: RETURN 

112 IFTAS)FOSTHENFO=-1 :RETURNELSEFO=O RETURN 

113 IFINSTR(CS(QO), TAS) JOTHENFO=-1 : RETURENELSEFO=O: RETURN 

114 IFTBO=TVOTHENFO=-1 !RETURNELSEFO=O 1 RE TURN 

115 IFTAS(TVATHENFO=-1 !RETURNELSEFO=O: RETURN 

116 IFTAM)TVETHENFO=-1 !RETURNELSEFO=O: RETURN 

120 FIELD 1,2 AS 618,2 AS B28,12 AS C9(1),25 AS C9(2),5 AS CS(3),10 AS CH(4),58B 
AS C9(5),13 AS C6(4),0 AS DUS,1 AS FLSIRETURN 

129 '“eBTREE SUBROUTINES+ 

140 FIELD1,205B3%, ZASB4S, 2ASBSS, ZASBRS, 2ASBDS, (RC-10) ASDSSIRETURN' ROOT FIELD 
150 “OPEN FILE 

160 OPEN"R",1.FZ8,128 

170 GOSUBL4O:!GETI,11:Z5<CVI (BIS) BásCVI (BSS) 1B7=CVI(B4S) FB9=CVI(ERS)FBD=sCVI(BDS)+ 
RETURN'GET ROOT INFO 

180 'GET A RECORD 

190 GOSUB1Z0'FIELD BUFFER 

200 GET1,Z31:B3I=CVI(CBILS)1B4=CVI(BZ28)' GET LINKS 

210 Z16=CS(KF)1TTE=CS(KZ) IRETURN 

Z20 'PUT IN BUFFER 

Z30 FOR X=1i TO 6ILSET CO(X)ImAS(XINEXT XILSET FLom" +" “LSET FECORD 

240 RETURN 

Z50 'UPDATE ROOT 

260 GOSUBISO!LSETEDS=MKIS(BD) ILSETBIS=MKIS(ZS) ILSETBAS=MKIS(B7)SLSETESS=SMKIS( BS) 
ILSETBRSSMKIS(B9)ILSETDSO="THE KEY RECORD"+STRING$S(75,"e")IsRETURN 

270 “WRITE EDITED RECORD 

280 PRINTGEM,E98/"e UPDATING EDITED RECORD e“ | 1GOSUBL4O' OPEN 

290 G60SUB120:GOSUB230'FIELD & LSET 

300 LSETBLS=MKIS(B3) ILSETEZS=MKIS(B4)'LSET LINKS 

310 PUTL,ZO!CLOSEIRETURN' HRITE RECORD 

330 '“esBTREE: ADD 

340 GOSUB1L60: IFBD()JOTHENZI=BD:GOSUBL90O:! BC=B3ELSERC=O 

341 Z3=Z5: IFBD()JOTHENDBA=BD: BAS="BD“ELSEBO=E9:BOS=" E9" 

342 GOSUBIPO!IFTAS)ZISTHENISAGSELSETIS=TAS+STRINGS(LEN(ZIS)-LEN(TAS),3Z)1T4S=T28+E 
TRINGS(LEN(TTS)-LEN(T2S),32) 

343 IFZIS=TISTHENIFTTS=TASTHENIFBS( SOTHENPRINTEEM, E9SI"ALREADY IN FILE"GSFORHMSIT 
0500: NEXTH: CLOSE «RETURN 

344 IFBI=0THENLSETELS=MKIS(BA):PUTL,Z3:GOTOF4SELSEZI=B3:GOTOIAZ 

345 IFB4=0OTHENLSETOZS=MKIS(BR):PUTI,Z31G0TOIF46SFLSEZI=B4:GOTOI4Z 

346 LSETBIS=MKIS(O) ILSETEBZS=MKIS(O) FGOSUBZIO:PLTI.BArLBA=BE+11B7=B7+17IFBAS="B9"T 


MICRO SISTEMAS, agosto/84 


Existe ainda um campo chamado 
VALOR, que apresenta o produto do 


Veja, na figura 8, um exemplo de um 





HENE9=E9+ LELSEIFERAS="BD“THENED=BC 
347 GOSUBTZ6O!PUTI  IICLOSESRETURN 
“90 "esBTREESDELETION 
S00 PRINTQEM,E98;"e DELETING RECOPD + "15GOSUBL60:T4=T5:73=75:GOSUBL9GO:IFTA 
SC)TISTHENSOZELSEIFTTS() T2ISTHENSOZELSEIFEI=SOANDES=0THENZS=Z4 :GOTOSIVELSEIFEG=0OTH 
ENZS=B3:GOTOS10ELSEIFBI=OTHENTS=B4 !GOTOSIQELSEBI=25:25=B4:723=0 
SO1 IFZ4=0OTHENCLOSE RETURN 
2 23-24: GOSUBL9O:BS=CVI(B1S):BOsCVI(BZS):IFTAS=ZISTHENIFTTS=T2STHENSOSELSEBI=Z 
4:28=1:2Z4=BS:GOTOSOL 
503 Bi=Z4: IFTAS(ZISTHENTS=1:24=85:GOTOSOLELSEZS=01Z4=B0:GOTOSOL 
504 IFES=OTHENSOTELSEIFRO=OTHENSOGELSEZI=EL :GOSUBIPO: IFZB=OTHENLSETEZS=MKIS(BOJE 
LSELSETEIS=MKIS(BO) 
Sos PUTI,Z31:Z=B0 
3506 33ºZ:GOSUB19O:T2=CVI(B1IS): IFZZ()/OTHENT=22:G0TOSO6ELSELSETBIS=MKIS(BS):GOTOS! 
[8] -—- 
307 IFROSOTHENSOPELSEZI=B1 !GOSUBIPO: IFZS=OTHENLSETRZS=MKIS(BOJELSELSETBIS=SMKIS(B 
os 
-508 GOTOS1O 
309 Z3=B11:60SUBL90: IFZB=0THENLSETBZSsMKIS(PSJELSELSETBIS=MKIS(ES) 
S1O Bé=B6-1IPUTI,231723=24 ]GOSUBIPOILSETFLS="-"ILSETBIS=MKIS(BD)tPUTI,231BDeZ3160 
SUBZ60:PUTA, 1:CLOSE:RETURN 
720 “esBTREE 1 SEGRCH 
730 F0=0:58=""“:GOSUBL60:IFB6=OTHENFO=0 1 RETURNELSETZ=1 :IFLEN(TOS) =OORLEFTS(T28,1) 
=" “THENTZ0O 
731 G0SUB735:IFZ3I=OTHENCLOSE IRETURN 
732 GOSUBL4401TOsTI31 IFTZ=OTHENTIGSELSEIFLEFTS(TTS,LEN(TZS) )=TZSTHENCLOSE:FO=-1:RE 
TURNELSEGOSUB737 
733 IFZ3=OTHENCLOSE IRETURNELSE73IZ 
734 GOSUB1300:1FS8="yY"THENFO=-1:CLOSE:!RETURNELSEGOSUB737160T0733 
735 NiI=LEN(TAS) 1Z3=Z5:GOSUBL9O 
736 IFTAS)LEFTS(ZIS,N1I)THENTISELSEIFTAS=LEFTS(Z18,N1)THENRETURN 
737 IFB3()/O0THENZI=B3:GOSUBL90:G0TO7I6 
738 IFB4()OTHENZI=B4: GOSUB190:GOTO7ISELSEZI=0: RETURN 
960 “INKEY ROUTINE 
1000 CE=PNCP:PRINTEEM, E9SFEIS;:FORX=1I TOZASINEXTXIPRINTREM, E9SSE9S 1 FGOSUBL400! PRI 
NTECE,""pSRETURN' BOUNDORY ERROR 
1010 CEsFNCP:PRINTEEM,E9SJEZSFIFORX=I TOZASINEXTXIPRINTOEM, EPS1E9SS :GOSUBL4O0O!PRI 
NTGCE,""FFRETURN' ILLEGAL CHAR ERROR 
1017 AS(PF)=ASIPRINTEEM,EPSI"FIELD NUMBER? “I:GN=PF 
1013 GOSUB3O7O:IFAS(ICHRS( 13) THENPRINTAS| :GNS=GN$+AS1GOTOLOL3 
1014 IFVAL(GNS)(SF ORVAL (GNS) SEFTHENGNS =" "3 GOSUBL000:!PF=GN:GOTOL L40ELSEPF=VAL (GN 
6) 1068=""16N$="":PRINTEEM,E9S4:!GOTOLL4SO 
1015 IFF=OTHENPRINTEOCP+LA,""1IF=LAELSEPRINTOCE,""PEF=O 
1016 60701030 
1018 AS(PF)=AAS(PF)1GOTOLL4O 
1020 “GET KEY PRESSED 
1030 POKE16410,100:POKE16412,0:GOSUBLOS:IFIS=""THEN1030ELSEIS=INSTR(COS,1S)FONIS 
60701110,1190,1210,1210,1230,1110,1110,1250,1270,1280,1015,1012, 1018: IFINSTR(KES 
+18) =0OTHENGOSUB1L010:G0TOL030 
1050 LA=LENÇAS)TIFLA)FL-LANDF)LA-1 THENGOSUB1000160T01030' CHECK LENGTH 
1070 PRINTIS;:F=F+LITFF(=LATHENMIDS(AS,F,1)/=16:60T01030' DISPLAY & SAVE CHAR 
1090 AS=AS+T$:LA=| ENCAS):GOTOLOZO' SAVE IN AS 
1100 “NEXT FIELD 
1110 AS(PF)=AS' SAVE CURRENT FIELD 
1111 IFIS<)/6THENGOSUB4003:PRINTECP+F,""prAS=AS(PF)'DO CALCULATIONS 
1113 IFIS=1ANDPF=EFTHENLLISO “ExIT (ENTER LAST FIELD) 
1115 IFIS=7ANDPF=EFTHENGOSUB1000+:G0T0OL030 
1120 IFIS=SANDPF=SFTHENGOSUB1000:6G0T01030 
1130 IFIS=10RIS5=s7THENPF=PF+LELSEPFsPF-1 
1140 F=0ICP=OIASa"": TS=0tLA=| ENCAS(PF)) 
1130 G0SUB1400' OUTSIDE PROCESSING 
1170 KES=KES(D(PF,3))1CP=D(PF,2)1FL=D(PF, 1) FAS=AS(PF)sPRINTECP,AS(PF)ICHRS(15)1S 
TRINGS(FL-LENCAS(PF)),PRS)SCHES(1S)FIPRINTOCP,"“FCHRS( IS); “UPDATE DATA 
1175 GOTOL280 “AUTO PROMPT DISPLAY 
1180 60701030 
1190 AO(PF)=AS:FORX=SITOS4GIPAS(X)I=AS(X)ISNEXTXIRETURN' EXIT INKEY 
1210 F=F-12IFF(OTHENF=F+1:GOSUB1000:6B0TOLOZ0ELSEPRINTCHRS( 24); 1!GOTOLOZO' CURSOR D 
On 
1230 F=F+1 1 IFF)LATHENF=F-1:G0SUB1000:GOTOL030ELSEPRINTCHRS (25)41:G0701030' CURSOR 
ur 
1250 IFLA=FTHENLO3FOELSERS=| EFTS(AS,F)I<*RIGHTS(AS,LA-F-1):PRINTEOD(PF,2) ASIPRSGILA 
mL ENCAS) SPRINTECP+F,""rAS(PF)=AS:GOTOLO3O' DELETE A CHAR 
1270 IFLA=FLTHENGOSUB1000:GOTOLOFOELSEAS=LEFTS(AS,F)+" “+RIGHTS(AS,LA-F)1PRINTED 
(PF ,Z),RSGILASLENCAS) SPRINTECP+F,""prAScPF)=AS:GOTOL030' INSERT CHAR 
1280 GOSUB 1340:0N PF GOTO 4021,4041,4061,4081,4101 
1340 FORX=DITODISTEP64:PRINTEX,STRINGS(DL,32)4 INEXTXIRETURN' BLANK INPUT AREA 
1360 FORX=ITONF+DS:AS(X)=""INEXTIRETURN' NULL AS() 
1400 '“OUTSIDE PROCESSING By USER 
1438 RETURN 
1440 FORH=1 TONF+DS:PRINTED(M,2),C8(H) FINEXTIRETURN' DISPLAY A RECORD 
1500 58="":PRINTOEM,E99/"(0";FNSS(Z3)4") CORRECT ITEM (Y/N)7"FIGOSUBLOS:SS=IS1IF 
S9()"Y"ANDSS()"N"THENISOOELSEPRINTSS | !RETURN' IS CORRECT ENTRY? 
1S1O “MAIN MENU 
1520 CLOSE:GOSUB4! !PRINTOS4B," "ICHRS(191)FSTRINGS(7,131)4" PROGRAM MENU “ISTRIN 
69%(6,131)5CHES(191) 
1521 PRINT” “ICHR$S(191)4"” (1) ADD A RECORD TO FILE "ICHRS(191) 
1522 PRINT" “ICHRS(191)1" (2) EDIT OR DISPLAY RECORD" ICHRS( 191) 
1523 PRINT" “ICHRS(191)4" (3) PRINTED REPORTS MENU "ICHRS(I19L) 
1524 PRINT" “;CHRS(191)4" (4) OPTIONS MENU "1CHES(191) 
1525 PRINT" “ICHR$S(191)14" (3) ExIT FROM PROGEMM “4CHES( 191) 
1526 PRINT" "ISTRINGS(29,131):60SUB8000:!PRINTIPRINT"PRESS NUMBER BY MENU CHOICE 
(7)" 1 1GOSUB1S527:G0TOLS40 
1527 FORG4=1TOFS:AS=INKEYS:IFAS( )""THENRE TURNELSENEXTOS !POKEL6Z8S, 244 1 POKE 16286, 
SRS ID OREL6DE? + 240! POKELGZOS, BZ POKELCTDO, 244! POKELAZS?, 245! POKELGADS, DA6 1 POKT 162 
160 
1528 Ae=INKEYS:IFAS()""THENRETURNELSEFORG4=1 TOFS*AS=INKEYS: IFAS()""THENRETURNELS 
ENEXTOS ! POKEL6208 60! POKE 16289, 65! POKE 16285, 2º POKE 16286, 33! POKEL6287 , 5216070152 


1340 Z=VAL (AS) 

15341 IFINSTR(SCS,AS)/OTHENZ=INSTR(SCS, AS) :GOTO9O70' OPTION LETTER 

1345 IFZ(10RZ)STHEN1S20 

1550 IFZ)ZTHENIS7OELSEPRINTOO,” "41 GOSUBZSI0 

1370 G0SUB1 360: ONZGOSUBL 420, 1840, 5000, 9000,7000 

1600 60SUB1360:G0T01520' RETURN 

1610 "CRERTE RECORD 

1620 SF=S3:EF=S4:As=""1PF=SF: IFBQTHENPRINTEEM, “BATCH ADDITION MODE-4" 1 BBJ :!GOSUBL 
140ELSEGOSUB1 140"60 -INKEY 

1630 TAS=AS(KF):TIS=AS(KZ) KEY & 2ND KEY 

sá IFLEN(TAS)CLORLEFTS(TAS,1)=" “THENCLOSE: IFBQTHENSSOOELSERETURN “EXIT NO DAT 
esta IFBQTHENGOSUB9400 + GOSUBL 340: PRINTRO,"” | 1GOSUBZ5301G0T0O1620 “BATCH MODE ADDI 
ION 

1650 PRINTEEM,E9Sp"ess HRITING eee" ;: IFEQTHENPRINTCO"JF1" OF" 1BBS 

1660 GOSUB340" ADD RECORD 

1665 TAS=""1T28="" 

1670 CLOSE sRETURN 

1700 “SEARCH FOR RECORD 

1720 As="":PFsKPIEF=KF:SF=KF:GOSUBL 140: IFIS()"Q"THENASE"":PF=KZTEF=KZISF=K2:GOSU 

B1140"GET KEY & Z2ND KEY 

1729 "TEST WHAT FOUND 

1730 PRINTREM,E981"e SEARCHING FOR RECORD e" jITAS=AS(KF) 1 TZSSAS(KZ) !IFLENCTAS)=O 

ORLEFTS(TAS,1)=" “THENCLOSE :! RETURNEL SEGOSUB7 301 CLOSE + IFFORNDNOTEDTHENSOSOELSE IFF 
OANDEDTHENRE TURNELSEIFS$="Y"ANDNOTEDTHENSOSOELSEIFS8="Y"ANDEDTHENRE TURN 

1740 IFB6=ORNDNOTFOTHENPRINTREM,E984 “NO RECORDS----PRESS ENTER"; 1!GOSUB3070:RETUR 

NELSEIFS8="NºTHENPRINTREM,E9S4"NO MORE MATCHES--PRESS ENTER”; :GOSUB3070 

1750 IFS%=""THENPRINTREM,E9S;"NO MATCH FOUND--PRESS ENTER” | 1GOSUB307O 

1760 RETURN 

1839 “EDIT RECORD 

1840 ED=-1+G0SUB17Z0:ED=0'GET RECORD TO BE EDITED 

1845 IFS$="N"OR(58=""ANDNOTFO) THENRETURN' NOT FOUND 
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1850 IFLEFTS(ZIS,LENCTAS) )CITASTHENFETURN'FECORD NOT FOUND 

1855 IFLENCTAS) «<OTHENRETUEN'NO ENTRY mADE 

1860 FORX=1TONF+DS:AS(X)=CS(X)TDEFUSE=SVARPTER(ES(O))LILSUSKI VARPTECAS(X)))INEXTX* 
SET INKEY ARRAY WITH CONTENTS OF THE LOCATED RECORD 

1870 EF=S41SF=S3:PF=53:A8="":GOSUBlL140' EDIT THE RECORD 

1872 FORX=1ITONF+<DS:AS(X)=AS(X)*STRINGS(D(X, L)-LENCAS(X)),32):NEXT 

1975 IFLEFTS(AS(KF),6)="DELETE" THENGOSUB192Z0: T28=CS(KZ) 1 TAS=CS(KF) :GOSUBS0O:CLOS 
EsRETURN' DELETE RECORD IF MARKED FOR DELETE 

1880 IFAS(KF)()CS(KF) THENGOSUB9Z0O: TAS=CS (KF):T28=C8(KZ) :GOSUBS0O: CLOSE: TAS=AS(K 
F)IT2S=AS (KZ) IGOSUBL6SOICLOSEIRETURN' DELETE & FE-ADD THE RECORD IF THE KEY MAS B 
EEN EDITED 

1890 FORAS=1TONF+DS: IFCS(AS)=AS(AS) THENNEXTAS RETURN 

1910 GOSUBZS0O:RETURN' HRITE EDITED RECORD TO FILE 

1920 PRINTEEM,E9SF"DELETE-ARE YOU SURE (Y/N)"1:G0SUB3070:IFAS="Y"THENRE TURNELSEL 
S20'SURE YOU MANT TO DELETE 

CO ESEC ERES DEE ES EEE EEE MAES = 


2531 PRINT * CADASTRO DE BENS a 
2532 PRINT "=== em... een n 
2533 PRINT * “4 
2534 PRINT “Natureza: E 
2535 PRINT “Referencia! i 
2536 PRINT * rt j 
2537 PRINT “Montante! Unidade + ] 
2538 PRINT “ “q 
2539 PRINT “Obs:+ o 
2540 PRINT * RL 
2541 PRINT * ' 
2542 PRINT * ; 
2543 PRINT * i 
2544 PRINT * i 
2545 PRINT * rPO 
KE 16383, 143:RETURN 

3060 PRINTREM,E9S| "PRESS (ENTER) --————————=— "4 

3070 GOSUBLOSIAS=ISIRETURN' INKEY 

4000 REM 

4001 IFFZ()OTHENRETURNELSEFZ=1 :PRINTOL94,* THE PRODUCER ' "JIPRINTOZSS, 


(C)1982 By SOTFI “"F:PRINTEIZZ, "TEXAS COMPUTER SYSTEMS “IIRETURN 

40Z1 PRINT €834,"Discrimíne neste campo: IMOVEL, CARRO, ACOES, JOIAS, DOLAR,"; 
4022 PRINT €898,” + INVESTIMENTOS, etc.": 

4023 PRINT & CP+F,CHR$S(0)4: GOTO 1030 

4041 PRINT €834,"Local onde 0 bem esta” estabelecido ou onde foí adquirido.": 
4043 PRINT € CP+F,CHR$(0)41 GOTO 1030 

4061 PRINT €834,"Quantídade do bem específico."; 

4063 PRINT € CP+F,CHR$(0)11: GOTO 1030 

4081 PRINT €834,"Valor de uma unidade do bem específico."i 

4083 PRINT € CP+F,CHRS(0)F1 GOTO 1030 

4101 PRINT €834,"Anotacoes ou cbservacoes genericas.": 

4103 PRINT € CP+F,CHR$S(0)4+ GOTO 1030 

4999 RETURN REPORTS MODULE BELOW 

5000 NR=11:FG68="BENS/RPT"IRMS(10)="RETURN TO MASTER MENU" 

S001 RMS(1)="CADASTRO DE BENS" 

5009 REM 

5010 FORX=0TOZO:TO(X)=0!NEXTXIPRINTES4B,CHRS(31)/IPRINTES4S9, STRINGS (24,143)1" RE 
PORTS MENU "ISTRINGS(24,143)1FORX=1ITOSIPRINTOSLZA( GMC X-1)),"C"+RIGHTS(STRS(X),L 
ENCSTRS(X))-1)+") "+RMS(X) 

5011 PRINTEOS44 (40 (X-1)),"A"CSRIGHTS(STRO(X+S),1)0") "+RMSCXAS) INEXTX 
SO1S PRINTOBII,STRINGS(42,143)1PRINTRS9E, "PRESS NUMBER BY MENU CHOICE 
60SUB1527 

SOZO Y=VAL(AS) :RN=Y:IFY<LORY)INRTHENISZO 

SOZS PRINTOA4SEB,CHRS(31L)p"ees STANDEBY FOR DISK ACCESS eos"; 

S030 ON Y GOTO 5031 

SO31 LS" CING=" "IPA GIPLEGo PSD CIPASS"IGIOI GEO IL ImOILZeO FL TO LG: 5G=1 EG 
=01G0TO 5040 

5039 RETURN 

5040 IFG1L=00R62=0THENSOO0ELSEIFLS="Y"ORL 1=OTHENGOSUBSO41 !PRINTO44S,CHR$(31)41605 
UBS4600:G0TOS46HO 

5041 OPEN"R",1,FOS,25:FIELD1,2ASGIS, ZASG26, 20A5G3S, 1ASG4S 

5042 FORX=SGTOES:Y=X-SG+1L1GETI,XIG(Y)I=mCVICGIS)IGA(Y)sCVICGZS) PGSCYI=LEFTS(GIS, IN 
STR(GIS+”  “,” "I-1)26TSLYI=GASINEXTXICLOSE 

3043 IFLEFTS(RMS(RN),5)="LABEL" THENGOSUESS4O 

S045 PRINTE44B,CHRS(31)FIPRINTO44S,""F:PRINTOHIT (ENTER) MHEN PRINTER IS READY O 
R <€) TO ABORT REPORT * 

5046 GOSUB3O7O!IFAS=CHRS (64) THENISZOELSEIFAS( )CHRS( 13) THENSO46 

5047 Xw1 

SO48 XX=INSTR(X,PSS,"1“)LIFXX<)/OTHENZ=VAL(MIDS(PSS,X, XX-X))ILPRINTCHRS(Z) prXuXX+ 
1+6G0T05048 

5049 Z=VAL(MIDS(PSS,X.LEN(PSS)-X+1))ILPRINTCHRS (Z) 4 FRETURN 

SOSO FRE=LEFTS(FOS,LEN(FOS)-1)+MIDS( "123456789", RN, 1)10PEN"R",2,FRS, 13:FIELDZ,9A 
SR19,4ASRZS 

5053 GETZ, LIRZ=VAL(RZ28) CLOSE: IFRZ=OTHENSÕOSO 

5054 PRINTE4G48,CHR$(31)/"es SORTED INDEX FOR THIS REPORT IS ALREADY ON DISKETTE 
“e 

IF DATA FILE IS UNCHANGED FROM LAST TIME REPORT HAS MADE THEN A 

NEW SORT IS NOT NECESSARY 

DO YOU WISH TO SORT? (y/N)"5 

5055 GOSUB3070:IFAS="Y"THENSOS0OELSEIFAS="N"THENGOSUBSO4 1 !GOTOS4IFELSESOS4 

3060 PRINTR448,CHR$(31)141G0SUBS6001G0TOSO7O 

5061 Z=1:RETURN “NO RESTRICTION 

5069 RETURN 

5070 GOSUB1L60:!FIELDI,(RC-1)ASRCS,IASFLS 

5072 OPEN"R",2,"REPORTS/DAT", 13:FIELDZ, 13ASRISILSETRIS=FRS:PUTZ, LILSETRIS=FZS:PL 
T2,.Z:FIELDZ,PASRIS, 4ASRZS 

5073 R2w31X76=" “ 1G0SUB2Z2530 

5074 FORX=1TOB9-1IRSETX78=STRS(B9-X) IPRINTEEM, "COUNTDONN==)" 4X791!GETL,XIZ=0tIFF 
L$()"+"THENSOBY9 

3075 GOSUBLZO 

SoOBO ON RN GOSUB 5061 

5081 IFZ=1THENGOSUBI 440 

5084 FIELD1,(RC-L)ASRCS, LASFLS+IFZ()ITHENSOSS 

35085 IFNS="N"THENH' =VAL(MIDSIRCS,LZ,L1))sGOSUBSLOO!LSETRISSHES:LSETRZS=STRE(X) IC 
oTOososs 

35087 IFLI=0OTHENLSETRIS=MIDS(RCS,LZ,LI)ILSETRZS=STRS (X)ELSELSETRISSMIDS(ROS,LZ.LI 
J*MIDS(RCS, La ,LI)ILSETRISSSTRS(X) 

S088 PUTZ,RZIRZ=RZ+1 

5069 NEXTX"'IFR2Z=3THENGOSUB41 !CLOSEIPRINTEO44B,CHRS(31)4"NO RECORDS PASSED RESTRIC 
TIONS. PRESS (ENTER) TO CONTINUE" :GOSUB 3070:GOTO SOOOELSELSETRI$="000000000" EL 
SETRZ8="0000“ PUTZ, RZ 

SO90O CLOSEIRUN"PRO/SERT” 

5099 REM CONVERT NUMERIC DATA TO ALPHA FOR SORT 

3100 IFRBS(W'))=1THENIFW' JOTHENHIS="D"ELSENIS="A ELSEIFW' JOTHENWHIS="C-ELSENIS="B 


7)"; 


S10Z HS=STES(H') INHS=STRECH' /1E8) !MB=INSTR(HS, E”) ON=INSTR(MHS, E") IFHE(SOTHEN 
WZSsRIGHTS (HS, TIELSENZS="0" +RIGHTS(STRE(VAL(MIDS(HHS, B+1,3))+8),1) 

5104 IFWIS="A"ORWIS="C"THENHIS=SRIGHTS(STRS(99-VAL (W28)),2) 

3106 IFHB(JOTHENIFINSTR(HS,".")()JOTHENHIS=MIDS(HS,2, L)+MIDS(WS, 4, HE-4) ELSENISSMI 
DS(HS,Z, L)ELSEIFINSTR(MHS,".")( )/OTHENHIS=MIDS (HIS, 2,1) +MIDS (WS, 4, Bii-4) ELSENTS=M 
IDS(MWNS,Z,1) 

5108 IFWHIS="A"ORWIS="B"THENHIS=SRIGHTS(STRO(P99P9PG-VAL (HIS) ) 6) 

S110 WHBS=HIS+HHZS+HIS RETURN 

5255 REM 

5260 REM eee SUBROUTINES FOR PRINTING REPORT 

5265 "ONE REC PER LINE 

5270 PE=3:PORX=1TOGIILPRINTTAB(GA(X))ICO(G(X))4 

S271 IFGTS(X)="YºTHENTOC(X)=TECXIAVALICSCGAX) IATA O) 1 

5272 NEXTXIRETURN 

5275 'MULT LINES 

3280 PE=3ILPRINTSTRINGS (PH, 4ZHLI=LTI+1:FORX=ITOGLIGT=LENCGS(X))*LENCCS(G(X)))+3+ 
GT: IFGT)IPNHTHENLPRINTIGT=SLENCGS(X)IALENCCS(G(X)))+TIL Im I+1tIPEnNPES1 

5285 LPRINTOS(X)IFIFLENCOS(X))JOTHENLPRINTO=)"5 

5290 LPRINTCS(G(X))4" “5 


55 


PROGRAMAS QUE ESCREVEM PROGRAMAS 


S291 IFOTS(X)I="YCTHENTECX)I=TOCXISVALICS(G(K) IDT (O)=-1 
S295 NEXTXIRETUEN 
299 “PUT TOTALS INTO PRINTOUT FORMAT AND PRINT 
Z300 IFTE(O)THENFORX=LTOGL:IFOTS(X)="Y"THENCS(G(X) )=PIGHTSCSTES( TEC X)) LENCSTRS( 
TO(X)))-1 )ELSECS(G(X))=""ELSESIOS3 
S301 NEXTX 
S302 LI=LI*4ILPRINTSTRINGS(PH,4S) PLPRINTOTOTALSCILPRINTSTRINOS(PH,4S)FIFOT-L (=P 
THENGOSUES270ELSEGOSUESZIO 
S303 LPRINT:FORX=LI+*ZTOPLILPRINT,” “INEXTX 
Sã304 RETURN 
5438 REM eee PRINT REPORT KEYED BY SORT FILE 
5439 P=1:PRINTOO,""; 35 GOSUBZS30O!R=1 :GOSUB1L60:GOSUBITZOsOPEN“R" , 2, FES, 13:FIELDZ, PAS 
Dus sAsSeIs 
S440 LISO! IFLEFTS(RMS (EN) ,S)C)"LABEL"THENLPRINTCREPORT 6"FRNIT. “FRMSCENSSTRB(PN 
-7)5"pe"sPSLI=LI+LIIFGD-1(=PHTHENLPEINTSTRINGS (PH, 47):FORX=1TOGISLPRINTTRB(GA(X) 
1168(X)FINEXTXILPRINTILPRINTSTRINOS (PH, 4) LI=(1+3 
S443 GETZ RIRI=VAL (PLS): IFRI=OTHENGOSURS300:CLOSE:GOTOSSZOELSEGETLA,P11:GOSUBL44O 
S445 GT=0! IFLEFTS(RMS(RN),5)="LABEL"THENGOSUBSSs0ELSEIFGZ-1(=PWHTHENGOSUESZ70ELSE 
GOSUESZSO 
Sas4b LPRINTILI=LI+L 
447 IFINKEV$="€“THENCLOSE :GOTOSSZ0FLSEP=R+11IFLI<Z)PL-PEORLEFTS(RMSCEN),5)="LAB 
EL"THENFORX=LITOPL-LILPRINT,"CINEXTXIP=P+1 1: GOTOS44 ELSES44I 
s450 REM 
S4ss REM eee PRINT REPORT KEYED By TRAV 
S460 P=1:PRINTOO,*“"“ +11: GOSUBZSIO 
S470 GOSUBL60:77=25:76=0:X6=0' SAVE ROOT AND NMIAL ARRAY SAVE COUNTER sessETE 
Efese.s 
S47S LI=OTIFLEFTS(EMS (RN),S)CI"LABEL"THENLPRINT"REPORT 6"JRN$". “JEMSCRNSITAB(PH 
7) 1"pe"sPSLI=L I++ IFGZ-1(=PHTHENLPRINTSTRINGS (PH, 42) FORX=1TOGIILPRINTTABIGA(X) 
J108(X)SINEXTXILPRINTILPRINTSTEINOS (PH, 4D)ILI=LI+3 
476 Zo=Z6+L1BS(Z6)=271 IFZ7()/0THENZI=27:GOSUB190:27=B3:60T03476' BEGIN EBTREE FILE 
TRAVERSAL eesbTaEEe.s 
SADO Zé=Z6-11IFZ6=0OTHENGOSUBS300! CLOSE :GOTOSS2O' CHECK TO SEE IF NHOLE TREE HAS B 
EEN TRAVERSED 
S48s5 2Z7=-BB(Z6) 12327: GOSUBL9O:GOSUBL440' DISPLAY A SECORD 
489 GT=01Z=0 
5490 ON EN GOSUB 5061 
Sa92 IFZ()1THENSSIO 
S49S IFLEFTS(RMS(RN) ,S)="LABEL "THENGOSUEBSS40ELSEIFGZ-1(=PHTHENGOSUBSZ70ELSEGOSUB 
sz80 
SSOS LPRINTILI=LI+-1 
SS1O IFINKEY$="€"THENCLOSE:GOTOSSZO ESCAPE FROM TRAVERSE 
SSIS 26=26-1:27=B4: IFLI*Z)IPL-PEDE(LEFTSCEMS (RN) ,S)="LABEL"ANDZ=1) THENFORYY=LITOP 
L=LILPRINT.CCINEXTYyYsP=P+1:GOTOS47SELSES476 GO GET ANOTHER RECORD 
ee«BTREf es. 
ss20 GOSUBSSIOTCLSIGOTOLSZO 
SS30 Xx=1 
SS31 XX=INSTR(X.PAS," +" )sIFXX<SOTHENZ=SVAL (MIDS(PAS, X, XX-X))ILPRINTCHRS (DT) prk=XX+ 
1+:60705531 
SS%2 2oVAL(MIDS(PAS,X.LENCPAS)-X+1))ILPRINTCHES(Z) :!FETUEN 
SS40 FORX=1TOGIILPRINTOS(X)4FIFLENCGOSC(X))JOTHEMPRINTO-)"5 
SS41 LPRINTOS(G(X))4" “ESIFOTOCKX+1)="Y"ANDXC)IGITHENLPEINT,CCILTI=LI- 
5545 NEXTXIRETURN 
SS60 PRINTES1Z,CHERS(31)7"LABELS ARE SET FOR “FPLI" LINES. 
(1) RESET 6 OF LINES 
(2) TEST LABEL ALLIGNMENT 
(3) PRINT LABELS 
ENTER YOUR SELECTION-—)"5 
SS70 GOSUB3O7O1IS=AS111F1$=""THENSS7OELSEIFIS="1"THENSSTSELSEIFIS="2"THENSSSOELS 


SEJA NOSSO COLABORADOR 
INI A A W a NILO) Po VA 
“..de MICRO SISTEMAS, é claro! 


Como? É simples: e Releia atentamente sua co- 
e Se você desenvolveu um | !aboração para micros ou cal- 
programa interessante, escreva  culadora, veja se não falta ne- 
um texto datilografado expli- nhuma informação (qual equi- 
cando qual a sua utilização e  pamento, em que configuração 
junte exemplos de aplicação. etc.) e remeta-a, em duas vias, 
Atenção: é imprescindível que AS unhe de MICRO SIS- 
a listagem seja datilografada. EMAS analisar. 
Se for possível mande tam- * Se aprovado, seu artigo ou 
bém, junto com a listagem Programa será publicado em 
datilografada, uma fita cassete data a ser confirmada na épo- 


: ca. Todo material veiculado é 
ou disquete com o programa. remunerado. Caso não seja 


e Se for artigo, use também aprovado, você receberá seu 
a máquina de escrever e, caso material de volta. 

haja necessidade de desenhose o Não se esqueça de mandar 
ilustrações, detalhe-os o má- um breve currículo, seu nome, 
ximo possível. telefone e endereço completo. 


Sistemas 


Envie para REDAÇAÃO/MICRO SISTEMAS, Rio ou São 
Paulo: Av. Presidente Wilson, 165/grupo 1210, Centro, CEP 
20030, Rio de Janeiro, RJ; Rua Oliveira Dias, 153, Jardim 
Paulista, CEP 01433, São Paulo, SP. 





EIFI6="3" THENFETUENELSESS7O 

SS7% PRINTESIZ,CHES(31):"HOW MANY LINES ARE THERE FROM THE TOP OF ONE LABEL 

TO THE NEXT“ 4: INPUTFL :GOTOSS6O 

«30 LPRINTSTRINGS Pil=-1,42)4:FORX=1 TOPLILPRINT,"CEINEXTXEGOTOSSOO 

S400 ON EN GOTO 5401 

Sé RETUEN 

999 RETUEN 

6003 ON PF GOTO 6005,6005,6003 ,6040,6005 

6005 RETURN 

4040 CIBSVALIAS TIIVALIAS(G))IPUS= «00" 1GOSUBASOO !PPINTOSII.PUSIIASi 6 
| =PUS 

6049 PRINTOEM,E9%41: RETURN 

6600 RESO!CA=)IGOSUB4! IPRINTEG4S,CHES(3L)F"DO YOU WISM TO REPLACE THE CONTENTS O 
F À CHOSEN FIELD” cv/N/0) "5 

6605 GOSUB3070:PES=A%: IFRES="N"THENG6Z0ELSEIFRES( +" Y"ANDRES( +"Q"THENG6OSELSEIFRE 
6="Y“THENCLS:GOSUBZ2S30:PRINTREM, "REPLACE MHAT FIELD 0" Fr INPUTRF:SIFCRF=0)08 (RF =KF 
108 (RFINF+DS) THENSSO0ELSEPEINT 

bb06 IFRES="Q"THENFE TURN 

6410 CLSIPRINT"YOU HAVE SELECTED FIELD S“s;RF;". NHEN THE SCREEN APPEQRS ENTERC:P 
FINTCTHE DATA YOU HISH TO REPLACE IN THE CHOSEN FIELD." IPRINT"PRESS (ENTER) TO C 
ONTINUE”1 

6415 GOSUB3O7O!RES=sAS:CLS:GOSUBZ530:PF=RF:SF=RF:EF=PF:GOSUBLL40:RFS=AS(RF):FE=-1 
6620 GOSUB4 1 !PRINTO44B,CHR$(31)F"SHOULD PLL CRICULATIONS BE PERFORMED? t(Y/N) "5 
4625 GOUSUB3O7O:RES=AS: IFRES="N"THENG6Z7ELSEIFRES()"Y"THENG6ZISELSECA=-1 

6627 PRINTOG44S,CHRS(31)4"DO YOU WISH TO USE A RESTRICTION? (Y/N/Q) T1 

6628 GOSUR307O:PR$=AS: IFRES="N"THEN6630ELSEIFRRS="Q"THENFE TURNELSEIFERS()"Y" THEN 
6628 

6629 RR=-1 1GOSUB90O7S: RE=O 

6630 CLS:GOSUBZ2530:GOSUBL60:GOSUBLZ0:FORF=ZTOB9-11GETI,F:FORY=ITONF+DS:AS(YI=CS( 
YIINEXTYIIFFLS()"+" THENG6SSELSEGOSUEI 440! PRINTEEM, “PRESS € TO ABORT--":B9-Fi:IFI 
NKEY$8="0" THENRE TURN 

6632 IFRR$="Y"THENFOS=LEFTS(CS(0O) LTIITVONVAL(CS(00)) !ONTIGOSUBI1LO,111,117,113, 
114, 115, 1167 IFFOTHENG6ISELSES64S 

6635 IFRETHENAS (FF IsEFS:PRINTED(RF,2) ASCRF)+*STRINGS(DIRF, L)I-LENCRFS),37)5 

6634 IFCATHENFORPF =S3ITOS4: GOSUB6003INEXTPF 

6440 FORY=LTONF+DSILSETOS(Y)=AS(Y) INEXTYISPUTILF 

6645 NEXTFICLOSE:GOSUB1 3407! RETURN 

6799 RETURN 

69800 FXS=STES(RES(CLO)ISIFINSTE(FXS,*."I=OTHENFXS=FX$+".00000000" 

6801 IFCIWCOTHENFSS="-“ELSEFSS=* * 

6902 IF(INSTE(FXS,"E“)<)0 OR INSTRIFXS,CDC)()0 JANDABS(ClO)( ITHENFXS=STES(ABS(CI 
0)e1)sFxesLEFTS(PXS,L)I*RIGHTSCFXS ,LENCFX$S)-T) 

6810 PU=INSTR(PUS,"."): IFPU=OTHENRSETPUS=STRS (INT(RES(CIW)))IMIDSCPUS,1,1)=FSS:R 
ETURNELSEFXSLENCFXS) 1FZsINSTECFXS,".C)sFy=PU-FZ+eLIMIDSCPUS,FY,FX)=FXSIMIDS(PUS, 1 
(1 )=FSSIRETURN 

6920 RETURN 

6900 ERSSSTES(ERL)+"/"+«STES(ERR/72+1) ERROR PARAMETER 


6902 IFERR=20THENPRINTREM,E984 "DIVISION EY ZERO “IIPRINTOCEF+F,"";IRESUMENEXT 
6905 IFERL=6310THENPRINTOEM,E9SF"RESULT TOO LARGE “FIPRINTOCP+F,"" | IRESUME( 
820 

6906 CLOSE 

6907 IFERS=" 160/ 65" THENPRINTESIZ,CHES(31):"BAD FILE NAME-PRESS ENTER”; + GOSUB3O 
7O!CLOSE RUN 


6909 IFBOTHENCLS:!PRINT"DOS ERROR IN BATCH MODE. .BB=";BB;" STATUS=" ERSIPRINT"SEE 
SECTION 14.9.4 IN PRODUCER (TM) MANUAL OR SECTION 2.9.4 IN“IPRINT"FINISHED PROG 
RAM MANU FOR RECOVERY“: END 

6911 IFERR/2+1=62THENPRINTEEM,E9S4"DISK FULL --—PRESS ENTER "41 1 GOSUB3070: IFBQTH 

ENSPOPELSERESUME LSZO 

6950 PRINTEEM,E9S; "UNKNOWN ERROR-PRESS ENTER"; 1! GOSUB3070:PRINTECP,"*;IRESUMEISZO 

7000 PRINTE448,CHRS(31);*PRINT"THE END": END 

7999 "STATUS DISPLAY 

8000 PRINTO4GO,CHRS(191);STRINGS(9,131)4" FILE STATUS “1STRING$S(S,131)F:PRINTOS4 

4sCHR$(191)4"º LAST RECORD ACCESSED-)" FFNSS(ZO)IPRINTRSOS,CHR$(191)7" 4 ACTIVE R 


ECORDS--—--——)" FNSS(B6)1 
S010 PRINTES472,CHES(191)4" 4 DELETED SLOTS OPEN-)"IFNSS(B9-B6-7); !PRINTR736,CHRS 
(191)1" FILENQME--——-—— 1" sFZ67:PRINTOSOO,CHES(191)4" ERROR STATUS--) "FERSIIPRINT 


8644 , STRING$S(30,131)5 
8020 FORUS=S10TOSIISTEP4S4:PRINTOUS,CHRS (191); :NEXTUS:PRINTOS94 ,CHR$(131) RETURN 


9000 BOSUB4L!PPRINTO44B,” “JCHR$S(191)FSTRINGS(7,131)4" OPTIONS MENU “ISTRINGS(6,1 
31)/CHERSC191) 

9010 PRINT" "ICHES(191)1" (1) (DIELETE A RECORD “4CHRS( 1914) 

POZO PRINT" "ICHES(191)4" (2) (S)ERRCH FOR ANY KEY “ICHESCIFL) 

9030 PRINT" “ICHR$(191)4" (3) (RIEPLACE A FIELD “ICHES( 191) 

9040 PRINT” "ICHES(191)4" (4) (BIATCH ADDITION MODE “ICHES(191) 

9050 PRINT” "ICHRS(191)4” (45) CEJXIT TO MAIN MENU “1CHES( 191) 


2040 PRINT" “SSTRINGS(29,131):6G0SUB8000:PPRINTIPRINT"PRESS NUMBER By MENU CHOICE 
(7)" 1 1GOSUBISZ71Z=VAL (AS) ZIFINSTR(SCS,AS))JOTHENZSINSTR(SCS ,ASJELSEIFZCL0RZ)S 

THEN9000 

9070 60SUB1360:IFZ=1THENPRINTEO,"“;:GOSUB2S30:PRINTREM,E98; “ENTER RECORD TO DELE 

TE”3 :GOSUB17Z0! IF(FDAND(SS="Y"ORSS=""))THENAS(KF)="DELETE” :GOSUB1S753:GOTO S20ELS 

EISZO 

9073 IFZ=2THEN!GOSUR9O7S CLOSE :GOTOLSZOELSEIFZ=3THENGOSUB4600:GOTOLSZOELSEIFZ=4T 

HEN9IPOELSEIFZ=STHENISZO 

9075 CLS:!GOSUBZS30 !PRINTOEM,E99;"SEBRCH-FIELD € (E=END)" 1: INPUTOQS:QO=VAL (Q09):T 

FQ08="0"THENEETURNELSEIFQQ( LORQO)NF+DSTHENCLS:GOSUBZS30O!PRINTQEM,E9S1 "FIELD & OU 

T OF RANGE-ENTER” 1 1! G0OSUB3070:G0TOPO7SELSECLS:GOSUB9OSS:GOSUBLOS:II=VAL(ITS) 

9077 IFIS="E€"THENRETURNELSEIFII(LORII)7THENSO7TSELSECLS!GOSUPZS3O:PRINTREM,E9SI"E 

NTEP SERRCH KEY" FIPF=QQ:EF=001SF=00:A8="":GOSUBL 140: TAS=AS(QQ):IFTAS=""THENRE TUR 

NELSELT=LENCTAS) !IFIII4THENTRE=VALL( TAS) 

9078 IFRRTHENRETURNELSECLS!PRINT"SEBRCH FROM: (1) START OF FILE <Z> END OF FILE 

“ 1 3GOSUB3070! IQ=VAL (AS) 1 IFIQ(LORIQ)ZTHENSO7TBELSEIFIQ=1THENHI=TIHZ=E9 HIS LELSEHI = 

B9:MZ=ZIMI=-1 

9079 CLSIGOSUBZS301GOSUB16401GOSUB1LZ0:FORXZ=H1TOMHESTEPHI:PRINTQEM, "PRESS € TO ABO 

PT-=————— 5" 1B9-XZIIGETI,XZIIFFLS="=" THENFOSIELSEFOSSLEFTS(CSLQO) LT)STVE=VALICE(Q 

Q+) SIFINKEY$="€"THENGOSUB30OS0O :RETUENELSEONTIGOSUBLLO,11414 1112,.113, 114,11S5, 116 

9081 IFFOTHENGOSUE14401723=XZ1GOSUB1LS00:1FS8="Y"THENPEINTEEM,E98;"RECORD WºFXZI"- 

PRESS (ENTER)" 4: GOSUB3OTO RETURN 

9083 NEXTXZIRETURN 

9085 PRINTTAB(19)1"SEARCH A FIELD MENU" :PRINTCHES(DO9)3"  "IPRINTO( 1) EQUAL TO 

"“(PRINT"(Z) GREATER THAN 3 SERECH FOR A STEING resa LEFT OF FIELD":PRINT” 


(3) LESS THAN "fPRINT 

9087 PRINT"(4) SERFCH FROM ANY PLACE IN FIELD" :PRINTCHES(209)5" qa" !PRINT"(S) EQU 
AL TO "sPRINT"(6) GREATER THAN SEARCH FOR NUMERIC VALDP=:PRINT"(7) LES 
S THAN "SPRINTIPRINT"PRESS THE NUMBER BESIDE YOUR SELECTION” 

9089 RETURN 

9200 IFLEFTSCASCKF),1)6)7 “THENPRINTEEM,E98S"(RIEPLACE, (NSEM KEY, CEIND"; 1 GOSUB3O 


701 JFAS="R"THENRE TURNELSEIFAS="N“THENTAS=AS (KF) 1 TIS=AS (KZ): GOSUBL4SO:GOTOISZÕOELS 
EIFAS="E"THENGOSUB13601GOTOLSTZOELSE9TOO 

9210 PRINTOEM,E99S4"BAD KEY---PRESS <ENTER)"sGOSUBL360:GOTOLSTC 

9300 IFZS=0THENPEINTESLZ,CHES(31)j"eee FILE NOT INITIALITED eos 

PRESS (ENTER) TO INITIALIZE OP & TO QROPT--—-)" FZ: INPUTIS: IFIS="0E"THENCLOSE:SKIL 
LFZS:RUNELSETS= 2: Bov0167=0189=2:8D=0)! GOSUBZ6O!PUTL, 1:PETURNELSERETURN 

9390 PRINTOG6O,"BRTCH MODE DESIRED (W/N)7"FIGOSUBLOS:IFIS="Y"“THENEQ=-1:7=1:G0TOL 
SASELSEIFIS()“N"THENSI9O ELSE 1520 

9400 IF BB=OTHENGOSUBS40OS 

9402 PRINTOEM,E9sI"ess MEITING--BATCH MODE eee"; BE=BB+1:7GOSUBLZO:IGOSUBTZIO:SLSETE 
19=Mb IS(BE)SILSETEZS=MEISCO)SPUTI PESGETI IILSETEZSSMEIS(BB):PUTI,LIRETURN CMRIT 
E BATCH RECORD 

9403 IFPC=2S65THENOPEN"VE”,1,"BATCH/DAT" IRETURNELSEOPEN“E”, 1," BATCH/DAT" RCIRETURN 
9800 IFBB=OTHENCLOSE:FETUENELSEFOFF=1 7005: GOSUBP40S: GOSUBLZO:GETA,FICLOSE:FORH=1 
TONF<DS:AS(HISCS(H) ENEXTHEGOSUBL4SO: TAS=SAS (KF IS TIS=AS (KZ) FGOSUBLSSOINEXTFICLOSE: 
BQ=0: BR=0:RETURN 





Esta matéria foi produzida após uso dos programas em questão no CPD 
DE MICRO SISTEMAS. 


Agradecemos aos programadores que aqui estiveram para colaborar com a 
matéria. 


Texto: Lucio Santos 
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cm 


Suprimento é coisa séria 











Com a Centraldata 
mm A entrega é imediata se 


Mantenha o seu computador bem alimentado adquirindo 
produtos de qualidade consagrada 


e Discos Magnéticos: 5 Mb, 16 Mb, 80 Mb, etc. 
[ [ ' I À [|] ATI DISKETES: 5 1/4 e 8” e marca e Fita Magnética: 600, 1200 e 2400 Pés 
ds aê VERBATIM e Fita CARBOFITAS p/Impressoras: Globus 
Ren ETIQUETAS PIMACO — PIMATAB M 200 — B 300/600 


PASTAS E FORMULÁRIOS CONTÍNUOS * Digifab” Diablo. etc. o O SS 


e Cartucho Cobra 400 
AV. PRESIDENTE VARGAS N.º 482 GR 207 TEL. (021) 253-1120 E 263-5876 


presentações Ltda 








Neste jogo, para os micros Sinclair, você estará cercado por todos os lados, 
basta um passo em falso e pronto... um ponto a favor do adversário 











Num bloqueio 
sem saída! 





Roberto Tannenbaum 





loqueio é para ser jogado por duas pessoas, onde cada 
uma delas irá controlar um quadrado no vídeo. Os 
quadrados podem se mover para à direita ou esquerda, 
para cima ou para baixo, deixando uma trilha por on- 
de passam. O que cada jogador deve fazer é evitar que seu qua- 
drado se choque contra qualquer obstáculo, seja ele a própria 
trilha, a do adversário, ou ainda as paredes que cercam o vídeo. 

Se o quadrado de um dos jogadores colidir, o adversário 
marcará um ponto. Ao final, vence aquele que chegar primeiro 
a dez pontos. 


Bloqueio pode ser jogado na modalidade NORMAL, na qual 
os quadrados têm velocidade constante ou ACELERADO, com 
velocidade crescente. A figura 1 demonstra como cada jogador 
deve controlar o seu quadrado. 





Listagem 1 


JEM + 


PRRIRRIRRIRRIRRIRRIRRIRRIR 
TERES RLRR CER EE RO 


ves Tenta fue pe Cita 


q 
do 
4 
do 
4 
E à 
q 
— 
aq 
de 
é À 
À 
4 
A 
À 
E 


ee Te Te re Tete Tem 


a 


O PROGRAMA 


+ scr fio a pos le esã PPS PA A 


EE TETE STE pe Sa Ta E e TE ge A ese TO TT] TT = 4 
DES O a =) 3 fo ue =] O E CG UG 


Para carregar o micro, em linguagem de máquina, deve-se 
utilizar o MICRO BUG (MS nºs 31, 32 e 33). Os comandos 
do MICRO BUG são SHIFT E,> E 1,B4]e> M $16520. 
A partir daí, cria-se a linha 1 REM...... (178) ..., esta linha deve 
conter, no mínimo, 178 caracteres quaisquer. Com o MICRO 
BUG ou utilizando o modo A do monitor Assembler (MS, nº 
23), entre com os códigos da listagem 1. Nessa altura, é bom 
verificar se nada foi digitado errado. Entre com o programa da 
listagem 2 e, então, grave o programa em fita. 

O funcionamento do programa consiste, primeiro, na leitura . 
do teclado para serem calculadas as novas posições. Se não Movimento Jogador 1 Jogador 2 
houver colisão, os quadrados são desenhados e reinicia-se a 


= 


Coco =P REM pe pe ca pus E 


pes EM QTD Poe ps Es 9 fo O Te = EM fi vã 


DECRETOS À UR Rd UCS RR TR (O E DR RS 


DN E SRS RIA RR E SI OS E LR RR IR URB IRENE ERRO 


PCS DS GS onte PCP Pe PCP Cras CO Nas 


ECA pes ao A EG A TETE go TA EE CT o TCE TCE pe O E pn 


POC E TE EA OT E CG OO A OE ES = 19 fi TECHES 4 
po ee artes foto foca IM po Co Cree Es ES a Cu Es Es 


p= Cd po o 


(3 ts [ot OM Cd =) TUE ES rt port E Tu E Mm Ta Es 
FE QE fed pes CTT o E TO =.) a fo p= TU Is 


cep Porte 42 fre ção e es TETO pes a Uva ETR ua ps po ta 
ACTA ESA ESA EA ESA GA NC Za TETE O USA ERA o ESA PEÇO e EA O 


ETR TT] =) o IC fe CCEE CTA A o a A o EO pe ES E TT 


CEE TA ETA ss GATE ESA TCE TAG E E = | E pa fa 


paptotitoqaptoqaqãqaqãsqãqã 
Tee Te Te Te Te Te Te Te ch CT cm 
MIRA CRRIR IR RIR RIR RIR RIR ERR 
Crea pose cheira fue po tt 
O E E 


. 





e à E a subir teclas teclas 6-0 
operação. Ao contrário, se houver colisão, o programa retorna a É á a 
ao BASIC para somar um ponto ao placar e reinicia-se a opera- bcieds pesa q oca 
ção. direita teclas A-G teclas H-L 


Para verificar quais as teclas pressionadas é chamada a sub- esquerda teclas Z-V teclas B-. 
rotina KSCAN (endereço 699) e depois testa-se cada bit do re- 
gistrador L. A sub-rotina FINDCHR (endereço 1981) não é Figural 
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10 LET Ci=a 200 PRINT aT 11,9;“B';ar 11,21; 
20 LET C2=a "E 
30 LET K=9 2180 SLOU 
PRINT “1.NORMAL",,"“2.ACELER 22d IF INKEv$="" THEN GOTO 220 
ADO 230 PRINT AT 41,9; “;AT 11,214; 
SO IF INkKEvg$= THEN GOTO 50 
BO LET K=CODE INKEY$-29 240 RAND USR 16520 
70 FAS eS0 IF PEEK 16518 THEN LET C2=0 
POKE 16415,0 2+1 
POKE 16555,8 260 IF PEEK 156519 THEN LET C1=0 
POKE 155691,24 END + 1+1 
POKE 15515,0 270 PRINT AT 2,2; Ci, Ce 
POKE 15513,0 280 IF C1>:9 OR C2>9 THEN GOTO 
CLS 18 
FOR F=9 TO 31 290 IF INKEvg='"" THEN GOTO 2904 
PRINT AT 2,F;“ES;AT 25,F;"E 300 GOTO 70 
SO Ela 
NEXT F 320 PRINT AT a,9:"“"FIM DE JOGO" 
FOR F=1 TO 22 3530 IF INkKEv$="" THEN GOTO 330 
PRINT AT F,o;“B';ar F,51:;'H 340 CLS 
350 PUN 
NEXT FP 


chamada, pois ela não permite verificar se duas ou mais teclas a pausa é constante. Querendo-se diminuir a velocidade do jo- 
estão sendo pressionadas simultaneamente, o que é imprescin- go, basta alterar a linha 90 do programa, substituindo o 8 por 
dível neste jogo. um número maior. 

O endereço 16669 contém o tamanho da pausa que contro- Agora, só resta pressionar RUN e jogar. = 
la a velocidade do jogo. Na modalidade ACELERADO, o tama- — 


nho da pausa é diminuído pelo do, óprio programa, desta for- oberto Tannenbaum é estudante de Engenharia na Escola Politécnica 
ma, O jogo fica cada vez mais rápido. Na modalidade NORMAL, da USP e tem por hobby a programação de calculadoras e micros. 


— SERVIÇO 
cistfiicro AO ASSINANTE 


Assinale com um x a sua opção 
ASSINATURAS: Em caso de mudança de endereço ou 


O NOVA O RENOVAÇÃO renovação de assinatura, cole aqui, 


Para novas assinaturas, preencha o cupom anexo. etiqueta de endereçamento 
Para renovação, basta colar a etiqueta que acom- 


panha a sua revista no espaço reservado sobre o 
cupom. Em ambos os casos, remeta, juntamente 
com o cupom, e/ou etiqueta um cheque nominal à 
ATI EDITORA LTDA. no valor de Cr$ 25.000,00 
para os nossos escritórios no Rio de Janeiro ou São 
Paulo. 


O] MUDANÇA DE ENDEREÇO Endereço: 


Preencha o cupom ao lado com o novo endere- Cidade: 
ço e cole no espaço acima a etiqueta que acompa- 
nha a sua revista. Remeta-nos, para os endereços 
abaixo. Estado: 


informática Ltda. 


SÃO PAULO — Rua Oliveira Dias, 153, CEP: 01043, Tels.: (011) 853-7758 e 881-5668 
RIO DE JANEIRO — Av. Pres. Wilson, 165 — Gr. 1210/16, CEP: 20030, Tels.: (021) 262-5259 e 262-6437 





Dentre os “geradores” de programas em BASIC, o Creator, do 
norte-americano Bruce Tokin, é opção acessível e comprovadamente satisfatória 








Creator, uma ferramenta 
de programação 


Luiz Gonzaga de Alvarenga 


linguagem BASIC, pelo fato de ter-se transformado 

em uma espécie de linguagem universal para os mi- 

crocomputadores, estando presente em todos eles — 

mesmo que em diferentes versões ou dialetos —, 
provocou um imenso esforço de criação de programas para as 
mais variadas aplicações. São inúmeros os programas em lin- 
guagem BASIC hoje existentes, incluindo as versões comerciais 
e os programas publicados em diferentes revistas especializa- 
das, principalmente nos Estados Unidos da América, onde o 
número de publicações especializadas em computadores e pro- 
gramação, dirigidas aos usuários das diversas máquinas lá fabri- 
cadas, atinge a quase duas centenas de diferentes títulos. 


AUXÍLIO PARA O PROGRAMADOR 


Embora a linguagem BASIC seja relativamente fácil de ser 
aprendida, logo se percebeu que a elaboração de sofisticados 
programas é muito mais uma questão de talento e originalidade 
pessoais do que uma conseqiiência do domínio das técnicas de 
programação; além do conhecimento da linguagem em si. Tan- 
to isto é verdade, que alguns dos mais interessantes programas 
em linguagem BASIC incorporam técnicas extremamente sofis- 
ticadas criadas pelos seus autores, e que não tinham sido pre- 
vistas especificamente para a finalidade na qual foram usadas 
(é o caso, por exemplo, da função VARPTR, usada pelo 
“papa” da animação gráfica no TRS-80, Leo Christopherson, 
com resultados espetaculares). 

Tendo esse detalhe em vista, alguns programadores mais ex- 
perientes procuraram criar programas que fossem capazes de 
auxiliar na elaboração de programas na linguagem BASIC. Es- 
tes procuram mostrar ao usuário as sequências mais comuns de 
procedimento de criação, sugerindo roteiros de processamento 
ou criando comandos, instruções, telas, mensagens ou quais- 
quer outros artifícios normalmente utilizados pelos programa- 
dores veteranos, o que ajuda a eliminar as tarefas mais exaus- 
tivas e acelera o processo de elaboração do programa. 

Dentre os programas escritos com este objetivo, os mais co- 
nhecidos são o QUICKPRO e QUICKPRO PLUS, da Future- 
Soft, e um programa da Software of the Future Inc., o 
PRODUCER, escrito por Roger Smith. Estes programas, escri- 
tos num misto de Basic e Assembly, e vendidos comercial- 
mente pelas respectivas soft-houses são extremamente sofisti- 
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cados e podem ajudar na elaboração de programas em lingua- 
gem BASIC para aplicações diversas (desde que, naturalmente, 
o programador já possua conhecimentos básicos desta lingua- 
gem, bem como domine o assunto ao qual ele pretende aplicar 
o programa). 

O QUICKPRO e o PRODUCER são talvez inacessíveis à 
maioria dos possuidores de microcomputadores no Brasil, seja 
pela dificuldade em encontrá-los, seja pelo seu elevado preço. 
Os leitores interessados no tema não ficarão, contudo ,.frustra- 
dos, pois uma opção mais fácil foi oferecida pela revista norte- 
americana “80 Micro” em sua edição de janeiro de 1983, quan- 
do publicou um programa, escrito por Bruce Tonkin em lin- 
guagem BASIC, denominado CREATOR (posteriormente, uma 
= mais elaborada foi publicada na edição de fevereiro de 
84). 
O CREATOR também permite a criação de programas em 
BASIC e presta-se às seguintes aplicações: controle de estoque; 
contas a pagar; contas a receber; mala direta, bem como outros 
tipos de aplicativos que envolvam arquivos em base de dados. 


ELEGÂNCIA E FUNCIONALIDADE 


O uso deste programa é relativamente fácil, pois basta res- 
ponder às perguntas que ele vai colocando na tela, a respeito, 
por exemplo, do número de campos por arquivo; tamanho dos 
registros a criar; ou se a operação será executada com números 
em precisão simples ou dupla. As questões são conduzidas de 
forma tal que o próprio operador do CREATOR especifica o 
que deseja do programa a ser criado. Existem, evidentemente, 
várias limitações, mas isto não tira a versatilidade do programa. 
Dois pontos, contudo, devem ser considerados: o CREATOR 
não pode ser utilizado para criar qualquer tipo de programa, 
pois a sua utilização está limitada aos aplicativos de arquivos 
de dados. Segundo, ele não ensina como usar a linguagem 
BASIC, e sim orienta na criação de programas em BASIC; o que 
pressupõe que o programador já deva conhecer os rudimentos 
dessa linguagem. 

Uma das particularidades mais interessantes que o programa 
CREATOR utiliza na criação de outros programas em BASIC 
— que irá, sem dúvida, agradar a todos aqueles que se interessam 
por técnicas de programação — é a sua elegante forma de 
acesso a arquivo, que usa o modo sequencial. Esta técnica de 
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acesso a arquivo, cujo algoritmo utilizado foi criado por Bruce 
Tonkin, permite criar linhas de programa em forma de arquivo 
de dados, sem que, contudo, o arquivo criado seja considerado 
como um programa ilegal. Isto significa que o arquivo que foi 
aberto, segundo as técnicas usuais de abertura de arquivo de 
dados — lembre-se que este tipo de arquivo não pode ser carre- 
gado (LOAD) ou rodado (RUN) — no modo sequencial, pelo 
fato de conter números de linhas de programas, passa a ser um 
arquivo comum de programa. O exemplo abaixo elucidará o 
que foi explanado. 


10 INPUT"NOME DO ARQUIVO A CRIAR";DFS 
20 QS=CHR$( 34) 


30 OPEN"O",1,"ARQUIV" 

40 PRINT=1,"100 CLEAR 3000" 

50 PRINT=1,"200 OPEN";QS;"R";0$8;",1";0QS;DF$;05 
60 PRINT=1,"300 CLOSE” 

70 CLOSE 


Quando o programa acima é rodado, ele abre um arquivo de 
acesso sequencial denominado ARQUIV. Em condições nor- 
mais, este arquivo criado seria um arquivo de dados, com aces- 
so restrito à forma OPEN/CLOSE, contida no próprio progra- 
ma que serviu para criá-lo. Entretanto, devido à forma utiliza- 
da para criar o arquivo, se se fizer LOAD “ARQUIV” 
(ENTER) e, em seguida, LIST (ENTER), teremos na tela: 


100 CLEAR 3000 
200 OPEN"R",1,"FOLHAPAG" 
300 CLOSE 


onde, é claro, o nome FOLHAPAG deverá ter sido introduzido 
previamente, por atribuição à variável DF$, no programa ante- 
rior (linha 10). 

Esta é a técnica utilizada pelo programa CREATOR para 
criar programas em linguagem BASIC. Não é necessário, como 


se poderia pensar, que as linhas que serão criadas tenham se- 


'qQuéência numérica crescente, não podendo, apenas, ter números 


idênticos. Isto porque o programa criado, ao ser rodado, posi- 
ciona corretamente todas as linhas em seus respectivos lugares, 
o que se poderia ver se fosse tirada uma listagem do mesmo. 

Nas mesmas revistas citadas, juntamente com o programa 
CREATOR, Bruce Tonkin publicou o programa REPORTOR, 
que é complementar ao CREATOR e permite manipular os 
dados do programa a ser criado. As versões de cada programa, 
no número de fevereiro de 84, são bem mais eficientes do que 
as originais, contendo várias rotinas e arquivos de biblioteca 
auxiliar a mais. 

Os programas gerados pelo CREATOR possuem, entre ou- 
tras, as seguintes características: 

e acesso às gravações do arquivo de dados por meio de chave; 

e atualização de dados em qualquer campo do arquivo; 

e utilização de campos de tamanho variável; 

e utilização dinâmica de arquivo de dados, o qual cresce em 
função dos dados entrados; 

e utilização de 47 campos em cada gravação, cada um com 
até 256 bytes; 

e operações lógicas, matemáticas ou de strings podem ser rea- 
lizadas e visualizadas, juntamente com os dados; 

e exploração alfabética ou numérica de quaisquer campos de 
arquivo de dados; 

e utilização otimizada de rotinas. 

O programa CREATOR é bastante extenso (300 linhas na 
primeira versão; 229 linhas na segunda, sem contar os arquivos 
auxiliares), e sua digitação exige paciência e atenção. Quem 
quer que se resolva a digitá-lo terá, não obstante, o prazer de 
possuir um extraordinário e sofisticado programa, capaz de 
satisfazer aos mais exigentes usuários, desde é claro, que se re- 
conheça as limitações inerentes ao tipo de programa que po- 
dem ser elaborados com sua ajuda. e 
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O único terminal teleimpressor fabricado no Brasil. 


A ISA, Indústria de Impressoras S/A, acaba de lançar o 
primeiro teleimpressor genuinamente brasileiro. Sua alta 
tecnologia eletrônica, prova na prática sua capacidade 
de trabalho. Imprime por matriz de pontos 9x7, 
permitindo até 8 cópias impressas, com uma 
velocidade de 100 C.P.S. Equipado com 

memória standard de 2 K caracteres, 

utilizando formulário continuo, 

folhas soltas ou bobina de papel. 

De 64 até 132 caracteres por 

linha, com interface serial 

RS 232 elo de corrente e 

paralelo. Sua velocidade 

de comunicação é de 

50 a 9.600 B.P.sS. 

8 diferentes 

tipos de 

impressão. 


ISA 


INDUSTRIA DE IMPRESSORAS S.A. 


Escritorio 

R. Prof. Jose Marques da Cruz, 234 
Fabrica 

Rua Centro Africana, 74 

Tels.: (011) 240-2442 . 543.4939 
Telex: (011) 369261!IM BR 

São Paulo -S.P 


Meio-Tom 


Conheça mais 
detalhes do 
Teleimpressor 
KSR na 


GECODATA 


SISTEMA DE PROCESSAMENTO DE DADOS E TELECOMUNICAÇÕES 


MATRIZ: Rio de Janeiro - R. Republica do Libano, 61 - 12º and 

Tel.: (021) 221-4677 - Telex (021) 30187 

FILIAIS: S. Paulo - R. Frei Caneca, 1119- Tel.:(011)284.8311 - Telex (011) 22191 
Brasilia SCS 02 - Bloco Cnº 41-SL.01-Tel.: (061) 225-1588 - Telex (061) 1750 
Porto Alegre - Rua Santa Terezinha, 300 - Tel.:(051)32-3564 - Telex (051) 2144 
Goiânia - Belo Horizonte - Salvador 





com acentuação 
em português 
ãáadaé6idóduuçéºS | No Vídeo e 
na Impressora 


SISTEMA IVANITA” 


Totalmente compatível com o 
Processador de Texto - JANELA MAGICA II 


conhecê-lo =) - = = [1 


nat computer store 


Linha Completa de Software para APPLE 


Al. Gabriel Monteiro da Silva, 1229 - J. Paulistano 
São Paulo - SP - Tel.: (011) 852-0799 


(*/O Sistema IVANITA já é compatível com as seguintes impressoras: 


e GRAFIX80/100 + ELEBRABO10/11/30/31 + CENTRONICS 351 
« ISA EL - 8000 e ELGIN LADY 140 1/140L + Máq. de escrever OLIVETTI ET 
e MÓNICA El-6010 + EPSON MXIRX/FX 80/ 100 + Máq. de escrever IBM 96 / 196 


venha 





DAI, 
nEuIs 


Microcomputadores com crédito direto ou leasing 


939.850, 
398.850, 
409.000, 
849.000, 
Cr$ 2.390.000, 
Cr$ 1.498.000, 


GRATIS! 
UM CURSO DE BASIC 
ENTREGA RAPIDA EM TODO BRASIL 


Precos sujeitos a alteração 


Aniicativos: controle de estoque; contabilidade: folha de 
pagamento; contas a receber pagar: mala direta; cadastro 
de clientes e desenvolvimento de software para cada neces- 
sidade. 


Temos toda linha de perifericos e suprimentos para acom- 
panhar o crescimento de sua empresa. 


VISITE-NOS OU SOLICITE UM REPRESENTANTE 


MICRONEWS COMÉRCIO E SERVIÇOS LTDA. 


CREATOR, UMA FERRAMENTA DE PROGRAMAÇÃO 


O Creator, 
segundo Bruce Tonkin 


ta norte-americana 80 Mi- 
cro, especializada em micro- 
computadores da linha TRS-80, 
surpreendeu seus leitores com a 
publicação do programa-fonte 
de um famoso software que vi- 
nha sendo vendido no mercado 
por 295 dólares. O programa era 
o Creator e a iniciativa inédita 
artiu do próprio autor, Bruce 
onkin. Num longo artigo es- 
crito para a revista, ele explicou 
os motivos do seu gesto e ofe- 
receu o disquete com o progra- 
ma, para quem não quisesse di- 
gité-o, or apenas 10 dólares. 

O Creator é um programa 
que gera outros programas de 
banco de dados, usando a lin- 
guagem BASIC da Microsoft pa- 
ra equipamentos da linha TRS- 
80, Modelos 1 ou III. Suas prin- 
cipais aplicações são para a gera- 
ção de programas de mala dire- 
ta, cadastro e contas a p ea 
receber, entre outros. Além dis- 
so, como nem o Creator nem o 
programa gerado são escritos em 
Assembler, tornasse fácil a con- 
versão para outras linhas de 
equipamento. 


AS DIFICULDADES 


E m janeiro de 1983, a revis- 


Bruce Tonkin concluiu uma 
imeira versão do Creator em 
S dias, trabalhando cerca de 
200 horas no projeto. Após essa 
primeira etapa, levou o progra- 
ma ao seu advogado para pro- 
videnciar o copyright que lhe 
permitiria receber os royalties 
provenientes da sua futura co- 
mercialização. Vários meses de 
trabalho, contudo, ainda foram 
necessários para depurar o Crea- 
tor, eliminando todos os erros 
do programa. 

Com o programa to, Ton- 
kin saiu em busca de investido- 
res que acreditassem no Crea- 
tor e se interessassem numa as- 
sociação. Foi aí que começa- 
ram a aparecer os primeiros pro- 
blemas, e até hoje ele lamenta 
não ter tido condições financei- 
ras de bancar o projeto sozinho. 
A companhia com a qual se as- 
sociou tinha os direitos exclu- 
sivos de comercialização, en- 
quanto ele ficou com os direi- 
tos autorais e de modificação. 
O problema foi que, embora o 

rograma tivesse sido bastante 
comercializado, o autor diz não 
ter recebido um único dólar de 
royalties. 


Para Bruct Tonkin, seu erro 


para a 


foi ter-se associado a pessoas 
que não entendiam nada de 
computação, nem de software e 
não tinham vontade de aprender. 
Por isso, no artigo para a 80 Mi- 
cro, ele alerta os programado- 
res para, ao produzirem um pro- 
grama-fonte inovador, procura- 
rem um bom advogado e contro- 
larem todo o processo de co- 
mercialização, garantindo o re- 
cebimento dos royalties. Ele 
alerta os programadores também 
gura do distribuidor, 
que é quem efetivamente comer- 
cializa o programa. Segundo 
Tonkin, “os distribuidores não 
querem comprar o seu soft- 
ware, eles querem comprar vo- 
cê”, pois exigem um suporte 
técnico contínuo por parte de 
ques criou o programa, além de 

arem ao autor, uma margem de 
receita muito pequena — entre 
20% e 25%. Apesar disto, Bruce 
Tonkin admite que o distribui- 
dor é importante, porque é ele 
quem avalia o pacote, investe 
em propaganda e se encarrega de 
dar um suporte mínimo às lojas. 


EXPECTATIVAS DO AUTOR 


Segundo seu autor, o Crea- 
tor foi desenvolvido com os se- 
guintes objetivos: ajudar a escre- 
ver programas em BASIC sem 
erros; possibilitar a esses progra- 
mas acessar registros no arquivo 
de dados de uma forma fácil, 
através de chaves; atualizar facil- 
mente os registros de qualquer 
campo; permitir aos registros 
criados no programa gerado ter 

ualquer tamanho dentro do 

ASIC da Microsoft, ou seja, 
um máximo de 255 bytes; dar a 
cada registro um mínimo de 20 
campos; impedir, o máximo pos- 
sível, que problemas operacio- 
nais das mais variadas naturezas 
afetem o arquivo de dados; dar 
total liberdade ao usuário para 
determinar os parâmetros do 
programa a ser gerado, tais co- 
mo validação de dados de entra- 
da, mensagens de erro utiliza- 
das, tamanho dos registros e 
campos, tipo e número de cam- 
pos; utilizar o espaço de regis- 
tros com eficiência; ser fácil de 
operar mesmo por uma pessoa 
que não conheça muito a lin- 
guagem BASIC; rodar numa 
configuração de um único drive 
e 32 Kbytes, para possibilitar 
o maior número possível de 
usuários e apl que o pro- 

o 


soe gerado seja construído de 
orma modular. 


Bibliografia: revista '80 Micro”, edição de janeiro de 1983 





R. Assembléia 10 Gr. 3317 - Ed. Centro Cândido Mendes 


Tel.: (021) 252-9420 - CEP 20011/RJ. Luiz Gonzaga de Alvarenga é Técnico de Telecomunicações e trabalha 


na Embratel, em Goiânia, onde reside. 
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Programável. IDE EA 
Sistema HP-IL - A última à) 20 memórias. PRAfANARAR) 
palavra em sistemas inte- ge | So jesfentes 
grados para calculadoras | Crô 509.000, JRR) , mae [cofe 
de bolso. Permite o funcio- E cre NOS | 


namento das calculadoras | q 

HP 41C/CV com até Va E 

30 unidades compatíveis, qa e Te a 

cassete digital HP-IL, 
Impressora Plotadora 
HP-IL e mais, módulos 
para extensão de funções 
e de memórias. 


HP 41 CV - Calculadora 
Programável Alfanumérica 
com memória ampliada. 


Cr$ 1.169.000, 


HP 11 C - Calculadora 
Científica Programável. 
203 passos, 21 memórias 


Cr$ 408.000, 





Venha à nossa loja ou solicite a visita de um representante. 

Centro: Rua Sete de Setembro, 88 - Loja Q (galeria) - Tels. : (021) 222-5517 - 222-5721. 

Av. Rio Branco, 12 - Loja e Sobreloja - Tel.: (021) 253-3395. 

São Cristóvão: Rua Antunes Maciel, 25 - 2º andar - Tels.: (021) 234-0214 - 264-2096. 
1 : Copacabana: Rua Pompeu Loureiro, 99 - Tels.: (021) 257-4398 - 236-7175. 

O lado gente da maquina Aberta diariamente das 9 às 19 horas e aos sábados das 9 às 14 horas. 

Assistência Técnica: (021) 284-3349. 


HEWMLE TT Entregamosem todo Brasil pelo Reemboiso varig. 
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No concorrido mercado das instituições financeiras, a tentativa de oferecer 
um serviço cada vez melhor ao cliente tem novo aliado: a automação 


Banco24H 
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O Banco 24 Horas possui hoje 21 quiosques como este 


em São Paulo, Rio de Janeiro e Curitiba. 
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AUTOMAÇÃO 
BANCÁRIA: 








té pouco tempo atrás, quando 

pedíamos nosso saldo numa 

agência bancária, o funcionário 
do caixa tinha que manusear um enorme 
formulário de controle de todas as con- 
tas daquela agência, procurando pelo 
número de nossa conta. Esses formulá- 
rios eram emitidos diariamente pelo 
Centro de Processamento de Dados do 
banco para cada uma de suas agências e 
continham informações sobre as movi- 
mentações, saques e depósitos realizados 
no dia anterior. A outra possibilidade de 
controle, por parte do cliente, de sua 
conta, limitava-se à espera pelos extratos 
emitidos pelo computador central do 
banco e enviados periodicamente à sua 
casa. 

Hoje, com o rápido processo de auto- 
mação que vem se desenvolvendo na 
rede bancária, o próprio cliente acessa 
diretamente o computador central, 
obtendo as informações que lhe interes- 
sam, mediante a entrada de uma senha e 
de seu número de conta, que lhe permi- 
tem acesso ao enorme banco de dados 
que cada instituição possui. Isto porque 
a grande maioria dos bancos já está in- 
terligando suas agências através de ter- 
minais de caixa ligados ao computador 
central, de forma que o cliente tem a 
seu dispor não apenas a agência onde 
tem sua conta, mas toda a rede compos- 
ta pelo serviço eletrônico. 

Além dos terminais de caixa ligados 
on line com o equipamento central, o 
que faz com que todas as transações se- 
jam repassadas imediatamente (real 
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time) à conta do cliente, os bancos pas- 
saram a oferecer também terminais 
automáticos que são operados pelo pró- 
prio cliente. Através deles, a pessoa po- 
de obter qualquer tipo de informação 
sobre sua conta, desde o saldo até lan- 
çamentos em cheques que estão em pro- 
cesso de compensação. Até mesmo os 
extratos relativos à movimentação da 
conta em um determinado espaço de 
tempo já podem ser conseguidos a qual- 
quer hora, em terminais dotados de pe- 
quenas impressoras. Neste caso, o pró- 
prio cliente determina a partir de que 





O Bradesco possui nove máquinas 
ATMs já instaladas em São Paulo 
e Rio de Janeiro. 
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dia ele deseja conferir a movimentação 
de sua conta. 


BANCO 24 HORAS 


Outra grande vantagem é que qual- 
quer transação bancária deixou de ficar 
restrita ao horário de funcionamento 
das agências, desde que os bancos come- 
çaram a implantar máquinas do tipo 
ATMs (Automatic Teller Machines). 
Estas máquinas, colocadas no exterior 
das agências, funcionam também como 
terminais ligados ao equipamento cen- 
tral do banco e possuem uma série de 
recursos que possibilitam realizar diver- 
sas operações bancárias, mediante uso 
de cartões magnéticos, a qualquer hora 
do dia e da noite, inclusive aos sábados, 
domingos e feriados. 

Inicialmente, cada instituição instala- 
va ATMs nas agências que considerasse 
mais adequadas. Como o preço dessas 
máquinas é muito alto (por volta de 
Cr$ 80 milhões, as de fabricação nacio- 
nal), os bancos passaram a considerar o 
desenvolvimento conjunto de projetos, 
para compartilhar as máquinas e dividir 
os custos, Uma vez que as máquinas são 
instaladas fora das agências não haveria 
nenhum inconveniente na participação 
de vários bancos, mesmo que concor- 
rentes. 

Com base nesta filosofia, surgiu a 
empresa Tecnologia Bancária, responsá- 
vel pelo Banco 24 Horas — quiosques 
onde estão instaladas as ATMs — situa- 
dos em vários locais da cidade. A inicia- 
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tiva de constituição da Tecnologia Ban- 
cária partiu dos bancos Nacional, Uni- 
banco e Bamerindus, que decidiram 
criar uma empresa neutra para desenvol- 
ver este tipo de trabalho, totalmente 
desvinculado dos sistemas de automação 
internos, dentro das agências de cada 
uma das instituições. Mais tarde, integra- 
ram o grupo também o Banco Real e 
Banco Mercantil de São Paulo, cada um 
com 20% do controle acionário. 

Há algum tempo, a Tecnologia Ban- 
cária passou a atuar também como pres- 
tadora de serviço, ou seja, os bancos que 
se interessarem poderão, através de con- 
trato, dispor do mesmo serviço hoje ofe- 
recido aos cinco bancos acionistas. O 
primeiro a se interessar foi o Banco 
Auxiliar, e o Banco Lar Brasileiro deve- 
rá, em breve, também se integrar ao 24 
Horas. 





AS ATMs 


A empresa Tecnologia Bancária foi 
constituída em maio de 81, e em no- 
vembro daquele ano a Secretaria Espe- 
cial de Informática autorizou a importa- 
ção das ATMs, para as quais até então 
não havia similar nacional. Hoje, estas 
máquinas já são fabricadas no Brasil e a 
própria Tecnologia Bancária, que utili- 
zava equipamentos da Burroghs, reali- 
zou uma concorrência, em fevereiro des- 
se ano, da qual saiu vencedora a empresa 
Sid, e já encomendou 50 máquinas que 
serão entregues a partir de setembro 
próximo. Com as novas ATMs nacionais, 
a Tecnologia Bancária, que já atua em 
três capitais — São Paulo, Curitiba e Rio 
de Janeiro — atualmente com 21 quios- 
ques ao todo, começará a operar tam- 
bém em Belo Horizonte e Porto Alegre. 

As máquinas ATMs são compostas 
por um conjunto que compreende, além 
da Unidade Central de Processamento, 
um vídeo; uma impressora; uma leitora 
de cartões magnéticos; teclado; um con- 
tador de dinheiro e um dispositivo para 
receber envelopes com depósitos (em 
cheque ou em dinheiro) e com contas 
ou carnês a serem pagos. 

Por enquanto, todos os serviços ainda 
estão sendo realizados off line, quer 
dizer, a própria máquina paga a quanti- 
dade estipulada pelo cliente ao digitar o 
teclado, dentro de de seu limite, sem 
consultar o computador central. Já as 
contas e carnês são recolhidos por fun- 
cionários da Tecnologia Bancária, no fi- 
nal de cada dia, e levados a cada um dos 
bancos participantes do 24 Horas, onde 
passam pelo processo normal de paga- 
mento. As ATMs estão ligadas on line 
com microcomputadores da empresa 
Scopus, situados no centro da Tecnolo- 
gia Bancária em cada estado. O micro 
tem por função realizar uma “varredu- 
ra”; uma verificação que controla se 
todas as máquinas estão funcionando 
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bem e “carregadas” de dinheiro suficien- 
te. O micro também transmite as “listas 
negras” de cada um dos bancos para as 
ATMs e “puxa” todas as transações exe- 
cutadas pelas máquinas, repassando-as, 
ao final do dia, através de teleprocessa- 
mento a cada um dos bancos. A previsão 
é que, em breve, todos os terminais e 
bancos sejam ligados on line, o que au- 
mentará a margem de segurança para os 
bancos que utilizam o serviço, já que 
antes de cada saque a própria máquina 
consultará a conta do cliente para se 
certificar de que há saldo. 

O acesso aos quiosques aonde estão 
instaladas as ATMs e às próprias máqui- 
nas é feito através de cartões magnéti- 
cos. Na tarja do cartão consta, entre 
outras informações, o limite de saque de 
cada cliente. 


Para Luiz Eduardo Sarmento, da em- 
presa lautec, pertencente ao Banco Itaú, 
uma das principais transformações trazi- 
das pela automação bancária foi o con- 
ceito de cliente do banco, ao invés de 
cliente de determinada agência, uma vez 
que, estando as agências interligadas, o 
cliente pode utilizar qualquer uma, 
como se estivesse operando na própria 
agência onde tem conta. 


Segundo Sarmento, a primeira reação 
do público do Itaú frente às novas tec- 
logias do setor bancário foi de curiosi- 
dade, “depois houve um grande aumen- 
to na demanda, e hoje o cliente criou o 
hábito de fazer seu próprio controle de 
conta, e ele descobriu também que pode 
ser atendido por outras agências que não 





Nos mínimos detalhes, o Banco Itaú procura passar a seus clientes a idéia do Banco Eletrônico. 


Na foto, a capa de um talão de cheques. 


AGÊNCIA X BANCO 


Segundo Gilberto Dib, diretor da 
Tecnologia Bancária, o total dos saques 
realizados durante os finais de semana 
em São Paulo, onde há maior número de 
ATMs instaladas (nove), atinge a uma 
média de Cr$ 180 milhões. Isto prova a 
boa receptividade a este tipo de serviço, 
que chega a provocar filas em frente a 
determinados quiosques. Dib explica 
que ainda hoje as pessoas sentem certa 
dificuldade em lidar com este tipo de 
máquina, mas a Tecnologia Bancária 
mantém uma linha direta em cada 
quiosque com um plantão na sede da 
empresa para esclarecer eventuais dúvi- 
das .““Nossa decisão pelas máquinas da 
Sid também foi em consequência a este 
fato, já que elas possuem mensagens 
sonoras para esclarecimentos”, completa 
Dib. 

E ampliando seus serviços ligados à 
rede bancária, a Tecnologia Bancária vai 
lançar, no segundo semestre de 84, ter- 
minais de compras do Banco 24 Horas, 
que serão instalados em estabelecimentos 
comerciais. Esses terminais executam 
serviço de transferência eletrônica de 
fundos e, com o mesmo cartão do Ban- 
co 24 Horas, o cliente poderá pagar suas 
compras sem cheque ou dinheiro, e o 
débito em sua conta é automático. 


O processo de automação desenvol- 
vido pela Itautec para o banco Itaú co- 
meçou em 79, com a implantação de 
terminais ligados on line aos oito 
computadores IBM 4341 do CPD do 
banco. Hoje, nada menos que seis mil 
terminais estão ligados aos equipamen- 
tos do CPD do Itaú, aí incluídos os ter- 
minais de caixa; terminais de clientes e 
terminais fornecedores de extratos; e 
das 900 agências em todo o Brasil, 300 
já são eletrônicas. A rede composta 
pelos equipamentos de grande porte e 
terminais do Itaú processa cerca de 2 
milhões de informações por dia, “com 
tempo de resposta de menos de 3 segun- 
dos”. Segundo Luiz Eduardo, agora, 
com a aprovação pela SEI do projeto 
para a fabricação de super minis da 
Itautec, “a idéia é utilizar estes equipa- 
mentos como ntermediários entre os 
terminais de agéncias e o CPD”. 


A Itautec desenvolve todos os equi- 
pamentos de automação utilizados pelo 
banco Itaú, desde os terminais até as 
ATMs. Hoje, o Itaú possui 20 ATMs ins- 
taladas, e até o final do ano a previsão é 
de atingir a marca de 90 máquinas em 
funcionamento no próprio Itaú, além de 
outras 10 já vendidas pela Itautec para 
outros bancos. 

O processo de automação do Itaú 
prevé, numa primeira etapa, tornar ele- 
trônicas todas as agências ligadas a gran- 
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des centros urbanos e, em seguida, auto- 
matizar agências de centros menores, 
com o controle regional intermediário 
entre agências e CPD provavelmente 
sendo realizado por equipamentos como 
super minis ou supermicros. Ainda se- 
gundo Luiz Eduardo Sarmento, com a 
automação, “os funcionários que antes 
ficavam ocupados com serviços internos 
passaram a ter mais tempo para dedicar 
ao cliente.” Ele afirma que a automação 
de forma alguma gerou dispensa de fun- 
cionários; todos foram treinados para 
lidar com os novos equipamentos. “A 
razão básica que leva os bancos a se 
automatizarem não é economia de 
mão-de-obra, mas sim o oferecimento de 
novos serviços”, enfatiza. 


ITAUFONE 


O Itaú foi o primeiro banco a ofere- 
cer a seus clientes o serviço de saldo 
pelo telefone através da URA — Unida- 
de de Resposta Audível. A URA, tam- 
bém desenvolvida pela Itautec, faz com 
que qualquer telefone passe a atuar 
como um terminal para efeito de pedido 
de saldo. O cliente liga para o número 
de acesso ao CPD do banco, disca o 
número de sua conta e, em seguida, o de 
sua senha. O equipamento faz, então, a 
conversão da informação digital para 
informação falada, através de um sinteti- 
zador de voz. O Itaú recebe, em média, 
mais de 20 mil telefonemas diários de 
pedido de saldo. 

Outro serviço ao qual também está 
ligado o Itaú é o videotexto, e o cliente, 
de posse do terminal em casa ou no es- 
critório, tem acesso a todas as informa- 
ções fornecidas pelo terminal da agén- 
cia, além de dados sobre cobrança de 
títulos etc. 

E o Itaú também não ficou atrás na 
produção de terminais de transferência 
de fundos. Os primeiros destes termi- 
nais, fabricados pela Itautec, foram for- 
necidos ao Credicard e já estão instala- 
dos no Shopping Center Eldorado, em 
São Paulo, para recebimento de cartões 
de crédito. A rede deverá ser estendida 
para operar também com cartões magné- 
ticos dos bancos filiados ao Credicard, 


inclusive o Itaú. 
Segundo Luiz Eduardo Sarmento, 


deverão haver, de início, três redes de 
terminais de transferência de fundos: a 
dos bancos filiados ao Credicard; a dos 
que compõem o grupo Tecnologia Ban- 
cária e a do Bradesco. E, na prática, são 
estas os grupos que já vêm atuando nes- 
sa área, que engloba automação bancária 
e automação comercial. 


BRADESCO INSTANTÂNEO 
O Bradesco possui hoje cerca de 80 
terminais de transferência de fundos já 
instalados nas lojas do Shopping Center 
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Telecompras 

Progetado pera ser instalado junto a0s camas de 
logs. postos de gasofna, magazines. supermercados 
& quiros estabelecamentos comerciais. o Telecompras 
representa trarquiidade e segurança para Os Cientes 
Bradesco instantâneo 

À imtertgação do Telecompras aos computadores 
do Barco é festa por meso de um aparsfho teleltôrico 
comum. que pode ser usado normeimente quando 0 
Terrrenal não está sendo operado 

O ciente paga suas compras com o Cartão 
Bradesco instantâneo e, meciatamente. o valor 
é debitado em sua conta corrente é creditado na conta 





Iguatemi, em São Paulo. Os terminais te- 
lecompra, fabricados pela empresa pau- 
lista Digilab, possuem teclado destacá- 
vel, ligado por cabo, e um pequeno vi- 
sor, usados pelo cliente para verificar o 
valor da compra e autorizar o débito. 
Com a implantação do terminal tele- 
compra Bradesco, as compras através de 
cartão magnético deverão atingir um 
volume significativo, já que mais de dois 
milhões e meio de clientes do banco 
possuem esse tipo de cartão. 

Adotando uma política diferente dos 
demais bancos, que em geral distribuí- 
ram cartões para clientes especiais, no 
Bradesco qualquer cliente pode retirar 
seu cartão no banco, passando a ter 
acesso às facilidades que este oferece, 
entre as quais o telecompra. “O cartão 
para nós é uma espécie de veículo para 
que o cliente possa adentrar na automa- 
ção”, explica Luiz Carlos Trabuco, Dire- 
tor de Marketing do banco. E o Brades- 
co partiu então para a distribuição ma- 
ciça de cartões, o que, além de gratificar 
o cliente, como ressalta Trabuco, tam- 
bém auxilia as pessoas semi-alfabetiza- 
das que tinham dificuldade em assinar 
cheques, operação que tornou-se desne- 
cessária. 

Além do terminal telecompra, o siste- 
ma Bradesco Instantâneo inclui a insta- 
lação de ATMs; o TeleBradesco e a auto- 
mação interna das agências. O Bradesco 
possui hoje nove ATMs instaladas, entre 
São Paulo e Rio de Janeiro, todas fabri- 
cadas pela Fujitsu, e até o final do ano 
está prevista a instalação de 30 ATMs, 
estas últimas já encomendas à Sid. Se- 
gundo Trabuco, o consumidor quando 
vê uma ATM se considera diante de uma 
agência, e já a utiliza como tal. 

O TeleBradesco é um serviço de im- 
plantação de terminais, hoje da marca 
IBM, em fase de transferência para Sid 
3000, dentro das empresas, para obten- 
ção de informações como cobrança de 
títulos, entre outras. O TeleBradesco 
atua também a nível residencial, para 
clientes que possuem terminais de video- 
texto. Além de ser fornecedor de serviço 
do sistema, o Bradesco desenvolveu um 
sistema privado de videotexto, que pos- 
sibilita aos clientes que possuem termi- 
nais o acesso direto ao computador cen- 
tral do banco sem sair de casa. Na opi- 
nião de Luiz Trabuco, o videotexto é 


Propaganda do 
TELECOMPRAS, 
um serviço do 
Bradesco 
Instantâneo. 


um instrumento irreversível e definitivo, 
e cabe aos homens de marketing utilizá- 
lo de forma criativa. 

O processo de automação no Brades- 
co começou em 1961, quando o banco 
introduziu computadores no seu proces- 
samento. Nas décadas de 60 e 70, o 
Bradesco montou um grande Centro de 
Processamento de Dados para agilização 
dos serviços, e este processo, segundo 
Trabuco, chegou a ser sentido pelo 
cliente, ainda que de forma indireta. E 
foi entre o final da década de 70 e o 
começo dos anos 80 que teve início uma 
nova fase, com o cliente operando ter- 
minais dentro das agências. 

Este ano, o Bradesco adquiriu um 
IBM 3084, o que existe de mais moder- 
no em termos de equipamento de gran- 
de porte, com 4 CPUs, 64 Mbytes de 
memória e capacidade de processamento 
de 20 milhões de instruções por segun- 
do: um equipamento robusto para aten- 
der os 16 milhões de correntistas espa- 
lhados pelo país em 1.500 agências. 


Destas, 300 já são agências instantâneas, 
todas interligadas e trabalhando, cada 
qual, com um minicomputador Sid 
4800, que executa o trabalho de inter- 
mediação entre a agência e o CPD. Ao 
todo, segundo dados do Departamento 
de Marketing do banco, hoje já existem 
mais de dez mil terminais ligados ao 
CPD. 

O Bradesco orgulha-se também de 
possuir a maior agência eletrônica do 
Brasil, a agência Nova Central, situada 
na Av. Ipiranga, centro de São Paulo, 
com 100 mil correntistas. Apenas nessa 
agência, 130 terminais — entre terminais 
de caixa, de cliente e terminais de forne- 
cimento de extrato — estão ligados a um 
único minicomputador. Todo o sistema 
Bradesco Instantâneo está interligado on 
line, e o processamento se dá na mesma 
hora que está sendo efetuada a transação. 

Sem dúvida podemos afirmar que o 
setor bancário é uma das áreas onde a 
automação vem se desenvolvendo com 
maior rapidez, num processo vinculado 
às necessidades dos bancos nacionais e 
à nossa realidade. E em breve andar com 
dinheiro no bolso pode virar coisa do 


passado... a 
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O Governo prepara-se para regulamentar a Banco Nordeste do Brasil - Banco Econômico 
automação bancária. Banco do Estado do Amazonas - Banco do Estado 
Os grandes bancos, clientes da BK, há muito já do Pernambuco - Banespa - Banco lochpe 
elegeram o NBK Série V, o No-Break da BK, como Banco do Brasil - Bamerindus - Finasa - Citibank 
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Automação de escritórios 
é destaque na 11º FUSE 


pós uma paralização de oito 

anos — tempo em que o país 

começou a viver um maior de- 
senvolvimento na área de escritórios e 
sua automação — a FUSE — Feira In- 
ternacional de Utensílios e Serviços de 
Escritório voltou para mostrar o que 
há de novo no setor. Organizada pela 
Alcântara Machado, a feira realizou-se 
de 20 a 24 de junho, em São Paulo, 
com a apresentação de microcomputa- 
dores e periféricos (estandes da Proló- 
gica, Dismac, Scopus, Cobra, Poly- 
max e Unitron, entre outros), equi- 
pamentos de telecomunicações, micro- 
filmagem, videotexto, móveis e mate- 
rial para escritório. 


AUTOMAÇÃO DE ESCRITÓRIOS 


A Telesp mostrou os terminais de 
videotexto nacionais para escritório, 
fabricados pela Splice, Digitel e Parks, 
enquanto que a Brascom apresentou a 
sua versão de Office Automation, um 
pacote de aplicativos que inclui, en- 
tre outros, agenda pessoal e de compro- 
missos, controle de documentos e mala 
direta. Outra novidade apresentada foi 
o sistema de processamento de texto 
desenvolvido pela Forma Computado- 
res, e que utiliza interface para má- 


- 
- 
á 





usa .. 


O Edit Vídeo, sistema de processamento de textos da MDA, tem tela de alta densidade (52 
linhas de 80 caracteres), teclado com funções específicas, memória interna para armazenar 
cerca de 20 páginas, uma ou duas unidades de disquetes de 5 1/4" e interface para impressoras 


de margarida ou matriciais. 


quina de escrever eletrônica Remtro- 
nic 2000. Já a Compo do Brasil lan- 
çou dois monitores de vídeo, um mo- 
nocromático e outro colorido, ambos 
compatíveis com o IBM PC, além dos 
micros da Itautec, Microtec e Scopus. 

No seu estande, a Magnex demons- 
trou a possibilidade de transformar o 
Manager I em terminal inteligente pa- 
ra equipamentos IBM e Burroughs me- 





Os novos módulos para a 


diante o uso de uma placa de protoco- 
lo operacional. A Elebra, por sua vez, 
apresentou o MC 6000-GC, módulo de 
expansão que atribui à impressora Mô- 
nica resolução gráfica e melhor quali- 
dade para impressão de cartas com ma- 
triz densa. Entre os suprimentos, a 
Memphis lançou uma mesa especial 
para microcomputadores. 


CONGRESSO INTERNACIONAL 


Paralelamente, à FUSE, realizaram- 
se o I Congresso Internacional de Au- 
tomação de Escritórios, que reuniu es- 
pecialistas nacionais e estrangeiros na 
área, o Infobrás/84 — Encontro de 
Informática Brasileira, que destacou o 
microcomputador e seu uso, e também 
palestras do grupo de apoio em Infor- 
mática à pequena empresa. 

No Congresso de Automação, fo- 


ram discutidas as duas tendências que 
atualmente norteiam as empresas em 
vias de se automatizarem: a centrali- 
zação de informações, com o uso de 
terminais como estações de trabalho 
ligadas ao equipamento central da em- 
presa; e o processamento descentrali- 
zado, baseado na implantação de mi- 
crocomputadores nos vários departa- 
HP82182A, que também mentos que passam, assim, a ter uma 
permite usar a calculadora atuação mais autônoma, independente 
como alarme para lembrar do computador central, podendo 
caca e mesmo estar ou não ligado a este, con- 
forme a opção de cada empresa. 


HP-41CV, da Hewlett-Packard, 
permitem o funcionamento da 
calculadora com uma série de 
acessórios, tais como unidades 
impressoras e de armazena- 
mento em fita cassete (foto). 
Dentre esses módulos, a 
empresa mostrou o HP-IL, que 
interliga acessórios num 
PonENtE de comunicações, e O 
Módulo de Função de Tempo 
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Mesa da Memphis, especial para microcomputadores 
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MAIS SUCESSO PARA VOCÊ! 
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Métodos novos e inéditos de ensino garantem um aprendizado 

prático muito melhor. Em cada nova lição, apostilas ilustradas 

ensinam tudo sobre Amplificadores, Caixas Acústicas, Equalizadores, 
Toca-discos, Sintonizadores AM/FM, Gravadores e Toca-Fitas, Cápsulas 
e Fonocaptadores, Microfones, Sonorização, Instrumentação de Medidas 
em Audio, Técnicas de Gravação e também de Reparação em Áudio 


São mais de 140 apostilas com informações completas e sempre 
atualizadas. Tudo sobre os mais revolucionário CHIPS. E você 
recebe, além de uma sólida formação teórica, KITS elaborados 
para o seu desenvolvimento prático. Garanta agora o seu futuro 
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na acao Você mesmo pode desenvolver um ritmo próprio de estudo. A lin- 
Este CURSO, especialmente programado, oferece os guagem simplificada dos CURSOS CEDM permite aprendizado fácil. E 
fundamentos de Linguagem de Programação que domina o universo para esclarecer qualquer dúvida, o CEDM coloca à sua disposição uma 
dos microcomputadores. Dinâmico e abrangente, ensina desde o BASIC equipe de professores sempre muito bem acessorada. Além disso, você 
básico até o BASIC mais avançado, incluíndo noções básicas sobre recebe KITS preparados para os seus exercícios práticos. 
Manipulação de Arquivos, Técnicas de Programação, Sistemas de Ágil, moderno e perfeitamente adequado à nossa realidade, os CUR- 
Processamento de Dados, Teleprocessamento, Multiprogramação e SOS CEDM por correspondência garantem condições ideais para o seu 
Técnicas em Linguagem de Máquina, que proporcionam um grande aperfeiçoamento profissional. 


conhecimento em toda a área de Processamento de Dados e ” 


Você mndém pode ganhar um MICROCOMPUTADOR. 
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No presente, 


o Escritório 
do Futuro 


Automação no escritório: somem o lápis e o papel e o 
profissional tem todo o seu tempo dedicado ao ato de 
pensar e tomar decisões. Não é bem assim, mas já 
estamos mais próximos de uma modernização radical 








á poucos anos atrás, por vol- 
ta do final da década de 70, 
falava-se em escritório do 
futuro como algo completa- 
mente distante de nossa realidade. Dan- 
do asas à imaginação, o escritório do 
futuro era pintado por muitos como 
aquelas salas especiais intergaláticas, lo- 
tadas de máquinas enormes, como vía- 
mos nos filmes de ficção científica. 
Hoje, esse futuro do qual falávamos 
chegou, e o novo escritório, com poucos 
exemplares ainda no Brasil, se mostra 
bastante diferente do que imagináva- 
mos. Nada de secretárias robôs, câmaras 
de despressurização ou qualquer coisa 
do gênero. Há simplesmente a ênfase em 
tornar cada vez mais eficiente um dom 
natural do homem: a comunicação. Esta 
é a principal meta do escritório automa- 
tizado, que busca em última instância 
liberar o ser humano de tarefas corri- 
queiras e repetitivas, de modo que lhe 
sobre tempo para o único ato, que o dis- 
tingue dos demais animais: pensar. 
Muitos apregoavam que o escritório 
do futuro seria aquele onde não ha- 
veria necessidade de lápis e papel, e este 
é realmente um dos primeiros sintomas 
do escritório automatizado. Não que 
estes objetos estejam em fase de extin- 
ção, mas sua utilização será cada vez 
menor com os novos hábitos que a auto- 





na comunicação dentro do escritório. 


mação traz. Ao invés dos milhões de me- 
morandos que circulam diariamente na 
maioria das empresas, as mensagens pas- 
sarão a ser enviadas através de estações 
de trabalho, terminais ou microcompu- 
tadores, instalados nos vários departa- 
mentos e nas mesas dos gerentes. 

Outra novidade é o sistema de video- 
texto, que permite ao usuário, através 
do telefone, acessar um banco de dados 
que dispõe das mais variadas informa- 
ções, desde previsão do tempo até o 
noticiário do dia e cotações da bolsa de 
valores. Alguns bancos também já parti- 
cipam do sistema videotexto, e desta 
forma os usuários do sistema têm aces- 
so, através do terminal instalado no es- 
critório, às mesmas informações dispo- 
níveis nos terminais de consulta que 
vêm sendo instalados nas agências ban- 
cárias. 

Neste processo de automação de es- 
critórios já se apresentam duas tendén- 
cias distintas, traçadas pelas empresas de 
acordo com sua política interna. Estas 
tendências seriam basicamente sistemas 
centralizados de automação e sistemas 
descentralizados. Em algumas empresas, 
o processo de automação dos escritórios 
vem ocorrendo através da instalação de 
terminais de vídeo, todos ligados ao 
computador central, o que denota um 
sistema centralizado, pois os terminais, 


mesmo que inteligentes, chegam a pro- 
cessar as informações, mas não atuam 
como estações autônomas. Já o sistema 
descentralizado exige a instalação de 
microcomputadores, que tanto podem 
atuar como terminais do equipamento 
central da empresa como também exe- 
cutar seu próprio serviço, recebendo da- 
dos, processando-os e enviando-os para 
outro equipamento, se for o caso. 


“No último 
século não houve 
nenhuma grande 

transformação 
em termos de 
evolução nos 
escritórios” 


automação de escritórios não 
representa propriamente um 
conceito, mas um processo 
contínuo de utilização de no- 
vas tecnologias. A opinião é de Jorge 
Coimbra, estudioso da área e que presi- 
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ALTERNATIVA PARA EDIFICIOS EM TERRENOS 


VALORIZADOS 


LEGENDA . 


1 - ELEVADOR 
2 - RECEPÇÃO / ESPERA 
3 - CIRCULAÇÃO 

4 — XEROX / HELIOGRAFIA 


5 - PABX /TELEX/FAC-SIMILE A DIST. 

6 - CPD./VIDEO TEXTO/PROCESS. DE TEXTO 
7 — SECRETARIA GERAL 

8 — SANITÁRIOS 


9 - COPA 
10- ESCADA 
11 JARDIM 


Figura 1 — O projeto do Escritório do Futuro do arquiteto Henrique Cambiagui Filho. 


diu o 19 Congresso Internacional de 
Automação de Escritórios, realizado no 
final de junho, em São Paulo. Coimbra 
faz uma revelação surpreendente: segun- 
do ele no último século não houve ne- 
nhuma grande transformação em termos 
de evolução dos escritórios. A explica- 
ção está no fato de que equipamentos 
básicos como lápis e papel, máquinas de 
escrever e telex já existiam há cem anos 
atrás, e as inovações somente aparece- 
ram com o surgimento das máquinas co- 
piadoras e com o computador. Segundo 
Coimbra, até bem pouco tempo atrás o 
computador era voltado exclusivamente 
às tarefas estruturadas, isto é, atividades 
que o homem define previamente. Mas a 
introdução do microcomputador no es- 
critório proporcinou a utilização desses 
equipamentos em tarefas semi-estrutura- 
das, como, por exemplo, análise de sen- 
sibilidade, que determina o comporta- 
mento dos dados de acordo com a varia- 
ção de determinados parâmetros. 
“Quando não haviam microcomputadores 
em escritórios, para cada variação de pa- 
râmetro que se quisesse medir, era ne- 
cessário elaborar um sistema específico. 
Hoje, com o micro, os dados são modi- 
ficados no próprio lugar, na mesma ho- 
ra”, explica Coimbra. 

Segundo Jorge Coimbra o primeiro 
passo significativo para automação de 
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escritórios se deu com o aparecimento 
dos micros voltados para processamento 
de textos. O passo seguinte foi a utiliza- 
ção de planilhas eletrônicas nos próprios 
micros; e o terceiro grande passo neste 
setor foram os bancos de dados em mi- 
crocomputadores. Atualmente, as mais 
recentes inovações ficam por conta da 
integração de vários programas como, 
por exemplo, de planilhas eletrônicas 
que disponham de banco de dados e 
processador de textos. 

Mas com todas essas inovações, a co- 
municação entre os integrantes do es- 
critório continua sendo um dos pontos 
chave inclusive para sua automação. Em 
função disso, Coimbra afirma que o 
grande salto que irá marcar definitiva- 
mente a automação de escritórios será a 
rede local, que propiciará que os micros 
conversem entre si. As redes locais de- 
verão causar inclusive uma transforma- 
ção no comportamento do mercado de 
informática, pois através das redes, o 
custo unitário de cada equipamento se- 
rá menor para as empresas, já que os pe- 
riféricos, tais como impressoras e discos 
magnéticos, poderão ser compartilhados 
através da rede. 

As redes locais darão origem também 
a um novo tipo de serviço: o correio ele- 
trônico, através do qual as mensagens 
são enviadas de uma estação de traba- 
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lho, terminal ou microcomputador, a 
uma ou mais estações. O correio eletrô- 
nico vai representar uma sensível dimi- 
nuição de interrupções por causa de te- 
lefonemas e de tempo perdido em tenta- 
tivas de se dar telefonemas que acabam 
não se concretizando. Além de transmi- 
tir mensagens, o correio eletrônico tam- 
bém armazena estas mensagens, que fi- 
cam guardadas para eventuais consultas 
posteriores. 

Na opinião de Coimbra, no processo 
de automação de escritório, o usuário 
deverá fazer uma utilização inteligente 
dos equipamentos de que dispõe. Como 
exemplo, ele cita a integração do micro 
com o sistema de PABX, para aproveitar 
os cabos de linhas telefônicas. Coimbra 
afirma que os modernos equipamentos 
de PABX vão permitir que se transmita 
atravé: deles além da voz, também da- 
dos e até imagens, com a implantação 
do fac-símile. O fac-símile é um equipa- 
mento que, acoplado ao telefone, fun- 
ciona como uma copiadora à distância, 
permitindo a transmissão e recepção, 
tanto de textos como de imagens. 

Para Jorge Coimbra, os trabalhos que 
mais se transformam no escritório auto- 
matizado são basicamente a preparação 
e o encaminhamento de correspondên- 
cia. Além disso ele acredita que essa mu- ,, 
dança ocorra mais a nível qualitativo do & 
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NO PRESENTE, O ESCRITÓRIO DO FUTURO 





que quantitativo, já que o novo escritó- 
rio conta com mais recursos, o que pos- 
sibilita maior qualidade no produto final 
da empresa. 

Coimbra não acredita que a automa- 
ção de escritórios venha a gerar dispen- 
sa de funcionários. Os empregados de- 
verão ser treinados para as novas fun- 
ções que passarão a executar. Além dis- 
so, ele ressalta a geração de empregos na 
indústria fornecedora dos equipamentos 
que compõem o escritório automatizado. 


“Adquirimos 
o hardware sem 
nos preocupar 
com o software 
e acabamos 
com um elefante 
branco” 


m fevereiro de 1982, MICRO 
SISTEMAS publicou uma ma- 
téria sobre o Escritório do Fu- 


turo, abordando o caso da Ju- 


sinformática, uma das primeiras em- 
presas no Brasil a automatizar seu escri- 
tório (veja MS nº 5, pág. 45). A Jusin- 
formática é uma empresa de prestação 
de serviços na área de mercado de capi- 
tais, voltada principalmente para o in- 
vestidor da Bolsa de Valores. Hoje, qua- 
se dois anos depois, Pedro Chaves Neto, 
diretor presidente da Jusinformática, 
considera seu escritório o do presente, 
ressaltando que a maioria dos escritó- 
rios ainda são do passado e, com conhe- 
cimento de causa, faz uma avaliação do 
processo de automação, do tipo descen- 
tralizada, pelo qual passou sua empresa. 

O escritório da Jusinformática come- 

ua se automatizar em 80, quando foi 
eito leasing para aquisição de um pro- 
cessador de texto e, na mesma época, 
foi instalada uma máquina copiadora e o 
sistema KS de telefone. Alguns meses 
depois, a diretoria alugou um microcom- 
putador, que seria utilizado para banco 
de dados da empresa e também para 
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processar a contabilidade. Hoje, Pedro 
Chaves Neto avalia que a aquisição do 
micro naquela época foi superdimensio- 
nada: “Adquirimos o hardware sem nos 
preocupar com o software, e acabamos 
ficando com um elefante branco”, afir- 
ma ele. Com algum tempo de uso pôde 
ser constatado que o equipamento era 
pequeno para o banco de dados que es- 
tava sendo organizado, e grande demais 
para os serviços de contabilidade que o 
escritório exigia. O resultado foi a devo- 
lução do micro e os serviços foram en- 
tão repassados a empresas especializa- 
das. A contabilidade é feita atualmente 
por um bureau e, para o banco de da- 
dos, a Jusinformática passou a alugar es- 
paço no computador da Telesp, com 
acesso de dados através do videotexto, 
do qual a empresa além de usuária é 
também uma das primeiras fornecedo- 
ras de serviço. Em breve pretendem li- 
gar uma impressora ao terminal de vi- 
deotexto para imprimir os próprios ser- 
viços da Jusinformática. 

Um outro passo dessa as a 
descentralizada adotada pela Jusinfor 
mática foi passar o serviço de ações es- 
criturais para o Banco Itaú, que agora 
administra tanto as ações que a Jusin- 
formática possui de outras empresas, 
bem como as dos acionistas da Jusinfor- 
mática. O Poly 101 HS, processador de 
textos da Polymax, continua sendo usa- 
do no escritório, entre outras coisas pa- 
ra fazer atas de assembléias. Também o 
telex instalado no processo de automa- 
tê do escritório continua em pleno 
uncionamento e Pedro Chaves Neto cita 
ainda alguns implementos que, segundo 
ele, fazem parte do escritório do futuro: 
o aparelho de bip para recados, o Tele- 
card, um cartão para interurbanos a co- 
brar que são debitados diretamente na 
conta da empresa (“evita filas e abor- 
recimentos para se fazer interurbanos””) 
e um pequeno gravador de bolso para 
gravar as idéias que se tem em horas e 
locais impossíveis de se tomar nota co- 
mo, por exemplo, quando se está diri- 
gindo. 

Pedro Chaves já tem pronto, inclusi- 
ve, um projeto elaborado em conjunto 
com o arquiteto Henrique Cambiagui 
Filho para o verdadeiro escritório do 
futuro, que segundo ele deve ser com- 
posto por uma ação integrada de arqui- 
tetura. Este projeto prevê um prédio de 
dois andares em forma de estrela com 
pontas e uma área central (veja a figura 
1). Esta área seria um espaço de apoio, 
onde estariam todos os serviços básicos, 


tais como máquinas copiadoras, telex, 
central telefônica, equipamento de mi- 
crofilmagem e um computador central. 
Comportaria também um auditório, ins- 
talações sanitárias e serviço de copa. 

Nas pontas que compõem a estrela 
seriam instaladas empresas associadas ou 
mesmo departamentos de uma mesma 
empresa, que fariam uso da estrutura do 
módulo central, o que viria a amortizar 
o custo dos serviços. Como explica Pe- 
dro Chaves Neto, seria uma vida em con- 
domínio, ou um flat service empresarial. 

O projeto contaria também com um 
sistema pneumático de circulação inter- 
na de documentos. Este sistema, que 
existe na França desde o início do sé- 
culo, é composto por tubos com cáp- 
sulas nas quais são colocados os docu- 
mentos, que através de pressão são en- 
viados à sala à qual se destinam. Tam- 
bém está previsto que cada unidade, no 
caso, cada empresa ou departamento, 
possua um microcomputador multitare- 
fa, que além de exercer as funções de 
micro, funcionaria também como pro- 
cessador de texto, terminal de telex, lei- 
tor de videotexto e terminal de vídeo 
ligado ao computador central. 

O escritório do futuro está pronto 
em projeto, mas ainda não pode ser con- 
cretizado porque esbarrou numa ques- 
tao básica: o custo. A dificuldade está 
em encontar um terreno que comporte 
o prédio, numa zona de fácil acesso aos 
clientes e a um preço acessível. E isso 
torna-se cada vez mais difícil nas gran- 
des cidades. 

Como foi dito anteriormente, a op- 
ção por um processo de automação cen- 
tralizado ou descentralizado irá se ba- 
sear na política adotada pela empresa. 
No caso da IBM, o processo gira em tor- 
no do computador de grande porte ao 
qual estão ligados terminais, operando 
no sistema PROFS — Professional Offi- 
ce System. Este sistema de automação 
de escritório foi desenvolvido nos Es- 
tados Unidos há cerca de cinco anos e 
em 1981 profissionais da IBM do Bra- 
sil começaram a realizar estudos para 
implantação do PROFS aqui. Na sede da 
empresa no Rio de Janeiro, 80 termi- 
nais de vídeo já estão ligados ao compu- 
tador central, um 4341. Este computa- 
dor central gerenciava, até final de ju- 
nho, os terminais instalados na sede da 
empresa, em São Paulo, ainda em fase 
de implantação do PROFS. Hoje, os ter- 
minais da filial paulista da IBM já são 
controlados pelo computador central do 
próprio prédio onde estão instalados. 
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“É essencial 
que todos os 
usuários estejam 
ligados a uma 
única UCP e possam 
se comunicar 
entre st” 


ara Robert Joseph Didio, repre- 

sentante de Apoio a Marketing 

da IBM São Paulo, é essencial, 

dentro do conceito de automa- 
ção de escritório, que todos os usuários 
estejam ligados a uma única UCP, e pos- 
sam se comunicar entre si. “A eficiên- 
cia do sistema pode ser verificada pro- 
porcionalmente à quantidade de pessoas 
que podem compartilhá-lo””, diz ele. 

No banco de dados central da empre- 
sa estão armazenados todos os docu- 
mentos gerados pelos terminais. Cada 
usuário do sistema possui um índice 
pessoal que informa a quais documentos 
ele pode ter acesso, geralmente aqueles 
que ele próprio emitiu, foi o destinatá- 
rio ou recebeu cópia. Assim, fica manti- 
do o sigilo do sistema. 

A implantação do PROFS na IBM 
brasileira começou pelo Rio e os primei- 
ros terminais foram dados às secretárias 
executivas, com os executivos utilizan- 
do-os indiretamente. Didio ressalta que 
não se deve forçar o usuário a mudar seu 
método de trabalho, pois isso pode aca- 
bar sendo prejudicial. E cita um fato 
ocorrido nesta primeira fase de implan- 
tação do sistema, quando em um grupo 
de três secretárias que trabalham em um 
mesmo departamento, duas se adapta- 
ram rapidamente ao uso dos terminais 
e a terceira preferiu manter o antigo 
método de trabalho. Depois de algum 
tempo, ao observar as facilidades de- 
correntes da utilização dos terminais, 
a terceira secretária resolveu aderir tam- 
bém à nova tecnologia. 

Didio destaca que é importante ter 
disciplina na implantação do sistema — a 
chamada gerência de mudança — que in- 
clui a preparação para a mudança, o 
treinamento e a padronização dos do- 
cumentos da empresa. Desta forma não 
há descontinuidade entre o sistema an- 
tigo e o que está sendo implantado. 
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A etapa seguinte foi a implantação 
de terminais para um conjunto de pro- 
fissionais. Hoje, em São Paulo, cerca de 
dez secretárias já utilizam o sistema, ca- 
da uma delas atendendo a três ou qua- 
tro gerentes que indiretamente também 
fazem uso do PROFS. E segundo Didio, 
dentro de dois anos a maioria dos fun- 
cionários passará a integrar o projeto. 

O sistema PROFS é dirigido priori- 
tariamente à profissionais e gerentes. Se- 
gundo estudo realizado nos Estados Uni- 
dos, 13% do tempo do gerente é utiliza- 
do em atividades criativas, sendo os ou- 
tros 87% deste tempo gastos na prepa- 
ração para tais atividades. E justamente 
um dos objetivos principais da automa- 
ção de escritório é aumentar o tempo 
dedicado às atividades pensantes. 

Para entrar no sistema, cada usuário 
tem sua senha, conhecida apenas pelo 
administrador do sistema. Por exigên- 
cia do próprio sistema, esta senha deve 
ser alterada a cada 30 dias. Entrando 
com a senha, o usuário pode utilizar 
qualquer um dos terminais autorizados. 
Depois de verificada a senha, aparece 
na tela o menu com as funções disponí- 
veis, entre as quais a função HELP, para 
esclarecimento sobre qualquer uma das 
demais funções. 

Na agenda, os compromissos do dia 
são projetados na tela em ordem crono- 
lógica. Outros usuários podem ser auto- 
rizados a ter acesso a determinada agen- 
da, mas em caso de compromissos con- 
fidenciais estes são bloqueados. O acesso 
de outros usuários tem como objetivo, por 
exemplo, marcar uma reunião. No caso, 
o sistema providencia a verificação das 
agendas dos usuários que devem partici- 
par da reunião e indica ao solicitante as 
opções de dia e hora mais adequadas a 
todos. | 

O conhecido sistema de malote tam- 
bém faz parte do PROFS, só que ele- 
tronicamente. O malote recebido perma- 
nece na caixa de entrada, listado por au- 
tor e assunto na sequência de chegada, 
até que seja aberto e lido, e então arma- 
zenado, despachado ou descartado. Uma 
outra função do sistema é o arquivo de 
documentos pendentes, que recebem 
uma data referente a quando devem ser 
tomadas providências a respeito. Os do- 
cumentos a serem guardados no sistema 
são indexados por data, autor, assunto 
e palavra-chave, o que facilita a pesqui- 
sa através de qualquer um desses itens. 

Outras funções do PROFS incluem 
preparação de memorandos, distribuição 
eletrônica de documentos e revisão, 





através de um dicionário interno com 
cerca de 150 mil palavras, disponível 
por enquanto somente em Inglés, que 
verifica se a palavra está escrita correta- 
mente; caso não esteja, o próprio siste- 
ma fornece a grafia correta. O PROFS 
permite ainda que se mande mensagens 
para sedes da empresa em outros estados 
ou mesmo outros países que utilizem o 
mesmo sistema. 

E reforçando o que foi dito por Jorge 
Coimbra, Didio afirma que, observando- 
se o escritório do passado e o de hoje, 
pode ser constatado que o processo não 
mudou, mudaram apenas algumas ferra- 
mentas. “Não houve na realidade mu- 
danças significativas no modo de traba- 
lho, só evoluiu a tecnologia das ferra- 
mentas, e o objetivo da automação de 
escritório não é introduzir mais uma fer- 
ramenta, mais sofisticada, e sim mudar O 
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m usuário mais experiente, que chega 
l | em busca de solução para um proble- 
ma específico (por exemplo, uma 
Contabilidade com tantos lançamentos e tal 
plano de contas), em vez de estar preocupado 
apenas com as características do equipamen- 
to. Assim Marco Antonio Rossi, gerente de 
vendas da Unitron, classificou, de modo geral, 
o público que visitou o estande da sua empre- 
sa no Micro Festival, realizado de 4 a 7 de ju- 
lho no Centro de Convenções do Hotel Na- 
cional, no Rio de Janeiro, identificando nessa 
atitude uma demonstração de maturidade en- 
tre os compradores de micros. 

Marco Antonio, aliás, não foi o único ex- 
positor satisfeito com os resultados da Feira. 
Eduardo Pamos e Marcelo Batista, respectiva- 
mente, da Sysdata e da Dígitus, ambos fabri- 
cantes, bem como Paulo Roberto Zornig, da 
loja Comicro, entre outros, também concor- 
daram com Emesto Camelo, diretor da Com- 
pumicro, outra loja carioca, para quem o pú- 
blico de aproximadamente 15 mil pessoas que 
lá esteve nos quatro dias de exposição foi 

“tanto quantitativa quanto seletivamente mui- 
to bom”. 


A FORÇA DO SOFTWARE 


ssa procura por soluções levou os visi- 

tantes em direção ao software e aos ser- 

viços, ameaçando bastante a tradicional 
hegemonia do hardware sobre as atenções. Al- 
guns produtos mostraram-se verdadeiros “cam- 
peões de bilheteria”, como foi o caso do siste- 
ma de gerenciamento de dados dBase II, que 
lotou a tal ponto o auditório onde se realizava 
uma palestra a seu respeito, que obrigou os 
promotores do evento a reeditarem a palestra 
em outro horário para dar oportunidade aos 
que ficaram de fora. Na Feira, o dBasse II 
também atraiu gente para muitos estandes. 

A força do software — que, no fundo, é o 
principal responsável pelo sucesso de vendas 
de qualquer equipamento — já se está fazendo 
sentir junto aos fabricantes. A Unitron, por 
exemplo, aproveitou a ocasião para lançar o 
Unitron Software, marca sob a qual a empresa 
comercializa programas existentes no mercado 
que, após testados e homologados, recebem 
um tratamento de produto final (documenta- 
ção, embalagem etc.) e são vendidos pela rede 
de distribuidores da empresa. A Unitron, po- 
rém, não pára aí: está elaborando um catálogo 
geral com todos os programas disponíveis no 
mercado e compatíveis com o seu equipamen- 
to, da linha Apple. 

Outros fabricantes também proclamaram a 
quantidade de software de que dispõem os 
seus computadores, tais como a Cobra (mais 
de 150 aplicativos para os modelos 305 e 210) 
e a Itautec (cerca de 160, para o 1-7000 e seus 
“filhos”, o Júnior e o Júnior E). Isso sem falar 
na possibilidade de rodar programas compatí- 
veis com o CP/M (facilidade essa já oferecida 
como característica standard ou opcional por 
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O microcomputador Senior $-100, da Racimec, em duas versões: portátil, com teclado 
simplificado e visor de cristal líquido na tampa (esq.) e para uso na empresa, com vídeo de 
fósforo verde e teclado profissional. À direita, a nova impressora Carla, de 40 colunas e 120 cps. 


diversas marcas), o que dá acesso à maior 
biblioteca de software existente em todo o 
mundo. 

Dentro das famílias específicas de equipa- 
mentos, a linha Apple continua com a lideran- 
ça, com a maior oferta de programas para as 
mais variadas finalidades, e cada soft house 
esforça-se para criar características capazes de 
distinguir o seu produto numa verdadeira flo- 
resta de folhas de pagamento, contabilidade, 
controle de estoque etc, ou, ainda, exploran- 
do o filão das aplicações muito específicas ou 
dos programas sob medida. 

Completando o quadro, viu-se ainda no 
Micro Festival a difusão e a procura cada vez 
maior dos softwares considerados fundamen- 
tais para todo usuário de micro: a planilha ele- 
trônica (Visicalc e seus seguidores), o sistema 
de gerenciamento de banco de dados (como 
o dBase II), processador de texto (Wordstar, 
Super Scripsit etc.) e os sistemas com boa re- 
solução, para fazer gráficos. 


A EXPANSÃO DOS 16 BITS 


software, também pelo que se pode ob- 
servar no Hotel Nacional-Rio, está aju- 
dando os microcomputadores de 16 
bits a se firmarem no mercado, ajuda essa que 
deve ser creditada, em grande parte, a um pro- 
grama bastante especial: o Lotus 1,2,3, pode- 
rosa combinação de planilha eletrônica, gera- 
dor de gráficos e gerenciador de arquivos. 
Além dos fabricantes, diversas empresas de- 
monstraram programas para compatíveis com 
IBM PC, tais como a Clappy, a Compucenter 
e a Computique. 
O fato é que os micros de 16 bits estão gra- 


dativamente ganhando terreno. Já são seis as 
marcas disponíveis — Ego, da Softec; Nexus, 
da Scopus; Link 727, adquirido em OEM da 
Microtec e comercializado pela Link (esses 
três primeiros mostrados no Micro Festival); 
PC 2001, da Microtec; Z-2200, da Zanthus; 
Racimec M 101 — e até o final do ano o “clu- 
be dos 16 bits” deverá receber importantes 
adesões, como a da Itautec, conforme assegu- 
rou Fernando Ferrane, no estande de empre- 
sa. “Ano que vem, muitos fabricantes vão 
soltar projetos” nessa área, previu Robert 
Janis Katgevics, da Científica, representante 
Brascom no Rio de Janeiro, adiantando que 
entre essas firmas encontra-se também a 
Brascom. 

Além dos micros de 16 bits, outra forte 
tendência do mercado brasileiro diz respeito 
às redes locais e, nesse sentido, não faltaram 
exemplos no Micro Festival. A começar pela 
Cetus, empresa independente especializada 
no assunto. Utilizando uma topologia serial 
em BUS, que permite total descentralização 
e independência dos elementos que a com- 
põem, a rede Cetus permite interligar até 
255 computadores e periféricos dos mais di- 
ferentes tipos (micros de variadas tecnologias, 
disquetes, discos rígidos, impressoras seriais e 
de linhas), possibilitando que os computado- 
res falem entre si, troquem arquivos e aces- 
sem arquivos comuns. 

Quanto aos fabricantes, um número cada 
vez maior deles está incluindo na sua relação 
de produtos a possibilidade da formação de 
redes, de variados portes e características. 
Desta vez, foram a Prológica e a Dígitus, que 
vieram juntar-se ao círculo já formado pela 
Scopus, Dismac e Polymax. A Brascom lança 
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Sua | EHUOIA COS 


O JR II da Sysdata tem 
teclado profissional, é 
compatível com o TRS-80 
modelo III e pode rodar 
CP/M 2.2 com interface. 

O modelo anterior, JR I, 
continua em sua versão 
econômica, mas pode 
transformar-se no JR HI com 
a adição de uma placa de 
circuito. 


a sua em outubro. 

Destinada a interligar (por enquanto, oito; 
futuramente, até 255) computadores do tipo 
Sistema-700 ou Super 700 compartilhando 
um grande arquivo de dados em disco rígido, 
a rede Pronet, da Prológica, consiste basica- 
mente de um gerenciador com disco rígido 
de 10 MB, um controlador e um processador. 
Além de acessarem o arquivo central (cuja 
capacidade deverá subir ano que vem para 
96 MB), as diversas estações de trabalho po- 
dem trabalhar, em processamento local, com 
seus próprios disquetes, impressora € plotter. 

Ja o equipamento lançado pela Digitus — 
o Digiplex — permite montar uma rede em 
anel com até 17 micromputadores DG T-1000 
operando em modo multiusuário, com os di- 
versos computadores (memória mínima de 
16 K RAM) funcionam como terminais inte- 
ligentes acessando os arquivos em disco (até 
1,4 MB) da unidade central. A rede possibi- 
lita ainda que os seus elementos comparti- 
lhem uma impressora comum ou que cada 
um trabalhe com a sua própria impressora. 

Ainda no âmbito das redes — neste caso, 
as de teleprocessamento —- a Embratel apre- 
sentou o Serviço Cirandão, que consiste de 
basicamente quatro serviços: Comunicação 
entre Usuários, nas modalidades mensagens 
(correio e secretária eletrônicos), quatro de 
avisos (guarda avisos que os usuários rece- 
berão ao entrarem em contato com a rede) 
e mercado eletrônico (ofertas de compra 
e venda de produtos e serviços); Informa- 
ção (acesso a bases e bancos de dados nacio- 
nais abertos ao público), Programas (possibi- 
lita ao usuário guardar os seus programas nos 
arquivos em disco da Embratel ou adquirir 
programas desenvolvidos por software houses 
e comercializados via Cirandão) e Suporte ao 
Usuário (informações, reclamações etc., bem 
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Disk drives Horácio F500-CP, da Elebra, com 
Cp e ferragem para adaptação no 
-500. 





como o diretório do usuário, que fornece o 
nome de todos os integrantes da rede e seus 
respectivos números de endereçamento). 

O acesso ao Cirandão será feito através 
da rede telefônica comutada, da Renpac — 
Rede Nacional de Comutação de Pacotes (a 
iniciar sua operação comercial no fim do ano) 
ou da Rede Nacional de Telex, e os valores a 
serem pagos pelos usuários irão englobar os 
custos das telecomunicações, do Cirandão 
propriamente dito e das informações ou pro- 


gramas fornecidos por terceiros. 
LANÇAMENTOS 
O apresentou muitos lançamentos. Afi- 
nal, conforme desabafou Marcelo Ba- 
tista, da Digitus, “hã feiras demais” atualmen- 
te, e os fabricantes não conseguem produzir 


Micro Festival do Rio de Janeiro não 


DGT-1000 
com a unidade 
Digiplex, que 
permite usar o 
computador da 
Dígitus no 
modo 
multiusuário, 
com 
compartilha- 
mento de 


discos. 
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novidades importantes, em ritmo tão acelera- 
do. Examinando a situação por outro ângulo, 
Fernando Ferrane, da Itautec, questiona até 
que ponto esse excesso de feiras começará a 
cansar o público. Assim, todos guardam os 
seus principais trunfos para o Congresso/ 
Feira da SUCESU, o maior e mais competi- 
tivo evento do setor. 

Isso, contudo, não impediu que se vissem 
coisas novas e interessantes na Feira do Hotel 
Nacional. A Elebra, por exemplo, mostrou o 
módulo Tipograph, que confere capacidade 
gráfica bit image (imprime tudo que estiver 
na tela: textos, desenhos etc.) e qualidade car- 
ta à impressora Mônica. Lançou ainda o Horá- 
cio F500-CP (unidade de disco flexível de 
5 1/4” já montada com controlador e ferra- 
gem própria para instalação no CP-500, da 
Prológica) e liberou para comercialização a 
partir de agosto pelos seus revendedores os 
drives Horácio TR (TRS-80) e AP (linha 
Apple), antes vendidos apenas em OEM. 

A Brascom mostrou, além do seu possan- 
te sistema BR 1000 multiusuário, três pro- 
messas: a rede local, prevista para outubro, O 
microcomputador Foxy (a ser lançado em 
agosto c que deverá funcionar como terminal 
inteligente tanto do sistema multiusuário 
quanto da rede) e o sistema gráfico de alta 
resolução com até 4096 cores selecionáveis, 
que deverá chegar aos seus primeiros usuários 
ano que vem. À Sisco mostrou o MS800, mi- 
cro monousuário com 128 KB de memória, 
vídeo inteligente controlado por micropro- 
cessador 8085, com 20 K de memória RAM, 
dois disquetes de 5 1/4” e compatibilidade 
com CP/M 2.2. Para setembro, a empresa 
pretende colocar no mercado uma unidade 
winchester de S ou 10 MB. 

Na área de suprimentos, a Supply lançou 
a máquina Perfect Data modelo 200 para lim- 
peza e recondicionamento de disquetes (dis- 
ponível a partir de agosto), os kits Perfect 
Data para limpeza de micros e drives, os dis- 
quetes (8” e 5 1/4”) e fitas magnéticas (600, 
1200 e 2400 pés) marca MAC 1000 e a mala 
para transportar um micro tipo Apple com até 
duas unidades de disquetes. A Verbatim mos- 
trou sua linha de discos flexíveis e fitas mag- 
néticas fabricados em Manaus. 

No estande da Prológica, três novidades: 
Didata 16, que permite a um professor, atra- 
vés de um CP-S00, monitorar até 16 alunos 
operando em CP-300; e Superfile, disco win- 
chester de S ou 10 MB que substitui o Speed 
File baseado em RAM e descontinuado pela 
empresa em virtude do seu alto preço. O CP- 
500 também ganhou novos disquetes de du- 
pla face e densidade dupla. 

Uma versão simplificada e mais barata, 
destinada a uso escolar, mas mantendo a 
compatibilidade com o Apple II Plus. É o 
Elppa Jr., com memória de 16 a 48 K e tecla- 
do mais simples, que a Victor do Brasil levou 
ao Micro Festival. A Microdigital, por sua vez, 
lançou uma série de jogos para os TKs 83 e 
85 (Pulo do Sapo — 16 K) e TK 2000 Color 
(Ataque , Bombardeiro, Corrida, Papa Tudo e 
Pulo do Sapo, todos disponíveis em fita cas- 
sete ou disquete). A empresa mostrou ainda 
a interface para impressora destinada aos TKs 
83 e 85 e prometida para fins de julho; a in- 
terface de disquete para o TK-2000 Color; o 
videogame Onyx e o protótipo de um grava- 
dor de EPROM para as linhas 83 e 85. Já a 
Itautec apresentou a família 1-7000, com 
ênfase para o Júnior e Júnior E, que ganhará, 
a partir de outubro, discos rígidos winchester 


de 10 MB. s 
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Texto: Ricardo Inojosa 








Conversão de endereços 










A maioria dos iniciantes têm dificuldade para compreen- 
der a ordem inversa da representação dos bytes de um ende- 
reço na forma LSB/MSB. Um; exemplo de utilização desta re- 
presentação é a maneira de informar ao computador o ende- 
reço de início de uma sub-rotina em linguagem de máquina: 
POKE 16526, LSB.POKE 16527, MSB. 

Existem várias maneiras de fazer a conversão de um ende- 
reço decimal para a forma LSB/MSB, mas uma em especial se 
destaca pela técnica usada para transferir o trabalho ao micro: 






















100 INPUT "ENDERECO A CONVERTER "; A 

110 A$ = A + 65536 * (A > 32767) 

120 N=VARPTR(AS$) 

130 POKE 16526,LSB POKE 16527, MSB 
Ou 

130 PRINT LSB, MSB 











O segredo desta forma de conversão está na linha 120: na 
linha 110 o valor 65536 será ou não subtraído automatica- 
mente de A se o valor de A for maior ou não que 32767 (veja 


a dica “Substitua o IF-THEN”, Seção Dicas de MS n9 25)e o 
resultado armazenado na variável inteira A%. Como as variá- 
veis inteiras são armazenadas em apenas dois bytes — LSB/ 
MSB —, basta descobrir o endereço N de A% na memória, 
através da função VARPTR: o LSB estará na posição N e o 
MSB na posição N+1. 
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SINCLAIR 
Anule o RAND USR 837 


Já foram publicadas várias dicas para proteger ou 
desproteger programas em micros da linha Sinclair. 
Uma delas “Abria” programas protegidos usando o 
comando RAND USR 837. Esta dica que apresento 
anula o comando. RAND USR 837 e torna o progra- 
ma novamente protegido. O procedimento é o seguin- 
te: em vez de utilizar o comando SAVE, use o RAND 
USR 757. Por exemplo, um programa assim: 

9900 SAVE “PROG” 

9910 RUN 

ficaria desta forma 

9900 FAST 

9910 RAND USR 757 

9920 SLOW 

9930 RUN 

sendo que assim, mesmo usando-se o comando RAND 
USR 837 ao invés do LOAD “” , o programa conti- 
nuará rodando e não irá parar com a Mensagem de 
Erro. 
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Se você tem pequenas rotinas e programas utilitários 
realmente úteis tomando poeira em seus disquetes ou fitas 
cassetes, antecipe-se aos piratas e trate de divulgá-los. En- 
vie-os para a REDAÇÃO DE MICRO SISTEMAS — SEÇÃO 
DICAS: Av. Presidente Wilson, 165/grupo 1210, Centro, 
Rio de Janeiro, RJ, CEP 20030. Não se esqueça de dizer 
para qual equipamento foram desenvolvidos. Desta forma, 
sua descoberta poderá ser útil para muitos e muitos, em 
vez de desmagnetizar-se com o tempo em suas fitas e dis- 
quetes... 
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SINCLAIR 


Multicurvas 


Faça mil curvas no seu vídeo com esta dica em FAST: 
após dar o RUN, entre com o número de STEP dos laços 
FOR-NEXT do programa e espere um pouco para ver o 
resultado. 


PRINT “QUAL O NUMERO DE STEPS?” 
INPUT S 

CLS 

FOR F=0 TO 250 STEP S 

LET X=. 1xFxXCOS(F) 

LET Y=.1xFXSINCF) 

PLOT X+20,Y+20 

NEXT F 
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Descobrindo o autor 


Entre numa de detetive, e descubra o verdadeiro autor do 
seu DOS com esta simples dica: CMS “& ” & 


Antonio Passos Cavalcanti — PR 
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“Linha TRS-80 [É Linha SINCLAIR 


Trocando caracter 













Logotipo em programas 










Troque, com esta dica em Linguagem de Máquina, 
todos os caracteres do vídeo que forem iguais aos do 
endereço 16524 pelo caracter do endereço 16528. Essa 
rotina pode ser colocada em qualquer posição da me- 
mória, já que não utiliza endereçamento absoluto. 
16514 2A OC 40 23 06 16 DE 20 


16522 7E FE 08 20 02 36 80 23 
16530 OD 20 FS 23 40 FO C9 






Coloque logotipos ou desenhos característicos de sua 
empresa em seu programa, ou mesmo suas iniciais artistica- 
mente desenhadas , com esta dica: 

















65000 VIA=VARPTR(CS) 

65010 V2A=PEEK(VLA)-11VIA=256NPEEK(VIA+rZ)+PEEKCVÍA+LS) 

65012 ZX=192+(64-V2A)/22ºCLS:PRINTAZX,"” p IVASVIA+VZA 

45030 FOR V4A=V3A TO V6AIPRINT CHRSCPEEK(V4A))F ENEXT 

65060 ZX=Z2X-1:V5SA=1:FOR V4A=VIA TO VOA 

65062 PRINTO6S0,”NOVO CODIGO ASCII DA POSICÃO WºIVSAs 

65063 INPUT N:IF N<128 OR N)191 PRINTO6B6,” “2G0TO 65062 
65064 PRINTI(ZX+VSA), CHRECN); 

65070 PRINTO686,” "sPOKE V4A,NEVSA=VSA+S NEXT 


Para usá-la, carregue o seu programa; mas antes defina as L ; n h cd T [8 S E 16, 


Strings de tamanho apropriado necessárias (como, por 
exemplo: A$=“1234567890"); digite (ou MERGE) as li- 
nhas dadas na dica; execute o programa uma vez e, ao apa- 
recer READY, substitua sucessivamente o nome String AS 
da linha 65000 pelos nomes das Strings do seu programa a 
serem modificadas. Após cada substituição da linha 65000, 
digite (SEM COLOCAR NUMERO DE LINHA): 

GOTO 65000 < ENTER > 

e dê os códigos desejados entre 128 e 191 (observe as modi- 
ficações na String, olhando na parte superior da tela). Ao 
terminar, liste o programa, confira, repita se for necessário, 
delete as linhas 64999 em diante e SAVE ou CSAVE o seu 
novo programa. 

Uma última observação aos que acharem estranho os 
nomes utilizados nas variáveis desta dica: é proposital para 
evitar que as variáveis de seu programa coincidam com o 
nosso. 
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Catenárias múltiplas 











Desenhe várias curvas no seu micro, simulando a figura da 
Geometria Analítica, a Catenária, com este programa: 










10 REM “CY 
20 CLS 

30 PRINTYESCOLHER O STEP ()=1)7s8] 
NPUT Sz:IF S<í THEN 30 

40 PRINTYESCOLHER “A” INICIAL (€)=á 
Ds 2 INPUT Q:IF Q<Í THEN 40 

SO PRINTYESCOLHER “A” FINAL (C<=500 
0)“ s2INPUTWZ TF W>S000 THEN 30 

60 CLS:FOR I=0 TO S31LFPRINTOIL,Y.]0 
NEXT 1 

70 FOR A=0 TO W STEP S 

80 PRINTOB23,A=":As 

20 FOR X=í TO 63 

100 Y=(A/20)%X(EXPCX/AD+HEXPC-X/AD) 
110 D=3I+A-ViEG=X+63F:H=63-X 

120 IF G)127 OR H<O THEN 4160 

130 IF D<2 OR D)42 THEN. 160 

140 SETCG,D):SETCH,D) 

1390 NEXT X 

160 NEXT À 

170 PRINTAIB96,CATENARIA Y=(A/2) 
X(EXPCX/A)HEXPC-X/A))7 

180 GOTO 30 
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Linha TRS-30 


Liste os comandos 


Para obter uma listagem na tela de todas as palavras 
reservadas do COLOR BASIC e do Extended COLOR 
BASIC, basta executar este programa: 


1 CLS:W=1087:FORC=ÍTO3J:READLÍ,Lo 

o FORK=LÍTOL2:W=W+í 2POKEW, PEEK(K)+ 
(PEEK(CK))=128)x1 28:NEXTK,C 

3 DATA 43622,43878,33135,33263,333 
10.33366 


Geraldo Simonetti Bello — RJ Armando Oscar Cavanha — RJ 





Arredonde para o mais próximo 


Muitas vezes precisamos arredondar um número para o número mais próximo, 
mas nosso equipamento não aceita esta aproximação, pois os micros da Linha Sin- 
clair arredondam sempre para um número menor. Assim, se pedirmos, por exem- 
plo, INT 2.9, o micro responderá 2, e não 3, como seria mais óbvio. 

Uma solução é tornarmos o argumento (da função INT) negativo, pois desta 
forma invertemos o conceito e o que era menor passa a ser maior, já que o número 
é negativo: — INT (2.973. 





Salomão M. Barguil - PA 
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010 0111 0100 0000 1100 1111 
1000 0010 





Curso de 
Assembler - XIX 















esta lição vamos descrever o último grupo de instru- 
ções do microprocessador Z80, ou seja, o grupo de Entrada e 
Saída. Este grupo de instruções é utilizado para a comunicação 
com periféricos mapeados por I/O (lembre-se que os endereços 
em um microprocessador podem ser mapeados por memória 
ou por 1/0). Vejamos então cada uma das instruções. 

1 — Input para Acumulador 

Formato: IN a, (n) 

Operação: O byte contido na porta n é transferido para o regis- 
trador A (Acumulador). 

Código Objeto: 


IN a,(n) 


Descrição: O número da porta (que irá variar sempre de O a 
225) é especificado no operando n. O dado existente na porta 
n é transferido para o Acumulador. 

Instrução : IN a (n) 

Ciclos de máquina: 3 

States (T): 11(4,3,4) 

Flags afetadas: Nenhuma 

Exemplo: Se o conteúdo do Acumulador é 23H e o byte 7BH 
está disponível no periférico cujo endereço mapeado por I/O é 
01H, após a execução da instrução IN a, (01H) o conteúdo do 
Acumulador será 7BH. 

2 — Input para Registrador 

Formato: IN r, (C) 

Operação: O byte contido na porta cujo endereço se encontra 
no registrador C é transferido para o registrador r. 

Código Objeto: 


EN £.7€) 


O 17 rrr000 


onde rrr pode assumir os valores que estão na figura 1. 
Descrição : O registrador € contém o número da porta da entra- 
da. O dado é transferido do dispositivo de entrada cujo ende- 
reço se encontra no registrador € para o registrador r. 
Instrução: IN r(C) 

Ciclos de máquina (M): 3 

States (T): 12 (44,4) 

Flags afetadas: S — setada se o dado é negativo; senão é 
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registrador 
registrador 
registrador 


registrador 
registrador 
registrador 
registrador 





Figura 1 


ressetada; 
Z  —setadase o dado é zero; senão é ressetada; 
H  —ressetada; 
P/V — setada se a paridade é par; senão é resse- 
tada; 
N  —ressetada; 
C  — não afetada. 
Exemplo: Se o conteúdo do registrador € é 07H, o conteúdo 
do registrador B é 10H e o byte 7BH está disponível na porta 
cujo endereço é 07H. Após a execução da instrução IN D, (C) 
o registrador D irá conter 7BH. 
Um típico uso desta instrução consiste em efetuar a busca 
de um dado em uma porta de I/O (polling). Veja o exemplo a 
seguir: 


+50FFH ;C + PORTA 255 


,54€) ;B + DADO DA PORTA 255 


+LOOP 
+ (OFEH) 


;JREPETE SE NÃO EXISTE DADO. 
;jA + DADO DA PORTA 258 





3 — Input e Incrementa 

Formato: INI 

Operação: O byte contido na porta cujo endereço se encontra 
no registrador C é transferido para o endereço de memória apon- 
tado pelo par de registradores HL. HL é incrementado e B é 
decrementado. 

Código Objeto: 


INT 


1071000710 


Descrição: O registrador C contém o endereço da porta de en- 
trada. O dado existente na porta é transferido para o endereço 
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de memória apontado pelo par de registradores HL. Finalmen- 
te o registrador B é decrementado e o par de registradores HL 
é incrementado. 


(HL) + (c) 


B + 


(B-1) 


HL + (HL+1) 





Instrução: INI 
Ciclos de máquina (M ): 4 
States (T): 16 (4,5,3,4) 
Flags afetadas:S '— desconhecida; 
Z  —setadase B-l= 0; senão é ressetada; 
H  — desconhecida; 
P/V — desconhecida; 
N  —setada; 
C — não afetada. 
Exemplo: O programa a seguir deve ler dados da porta 1 até a 
porta 80, transferindo os dados para um buffer na memória: 


Nr. de portas 
Nr. da porta iínicial 
endereço do buffer 


C+1 
jLe o conteudo da porta 
jRepete ate B = 0 





4 — Input, Incrementa e Repete 

Formato: INIR 

Operação: O byte contido na porta cujo endereço se encontra 
no registrador C é transferido para o endereço de memória 
apontado pelo par de registradores HL. HL é incrementado e B 
é decrementado. Esta operação se repete até que o conteúdo 
do registrador B seja O. 


Código Objeto: 
INIR 


101100710 


Descrição: O registrador € contém o endereço da ponta de en- 
trada. O dado existente na porta é transferido para o endereço 
de memória apontado pelo par de registradores HL. O registra- 
dor B é decrementado e o par de registradores HL é incremen- 
tado. A instrução termina quando o conteúdo do registrador 
B é 0. 





Instrução : INIR 
Ciclos de máquina (M): 4 (se B=0);5 (se B <> 0) 
States (T): se B= 0:16 (4,5,3,4) 

se B<>0:21 (4,5,3,4,5) 


Flags afetadas:S desconhecida; P/V — desconhecida; 
Z —setada; N -—setada; 
H —desconhecida; C  — não afetada. 


Exemplo: Se o conteúdo do registrador € é 07H, o conteúdo 
do registrador B é 03H e o conteúdo do par de registradores 
HL é 1000H. A seguinte sequência de bytes está disponível no 
dispositivo cujo endereço é 07H: 

51H 

A9H 

03H 
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Portanto, após a execução da instrução INIR, o conteúdo do 
par de registradores HL será 1003H, o registrador B irá conter 
O e as posições de memória a seguir terão estes dados: 


1000H 51H 
1001H A9H 
1002H 03H 


5 — Input e Decrementa 

Formato: IND 

Operação: O byte contido na porta cujo endereço se encontra 
no registrador C é transferido para o endereço de memória 
apontado pelo par de registradores HL. Tanto HL quanto o re- 
gistrador B são decrementados. 


Código Objeto: 


IND 





Descrição: O registrador C contém o endereço da porta de en- 
trada. O dado existente na porta é transferido para o endereço 
de memória apontadado pelo par de registradores HL. O regis- 
trador Be o par de registradores HL são decrementados. 





Instrução: IND 
Ciclos de máquina (M ): 4 
States (T): 16 (4,5,3,4) 
Flags afetadas:S '-— desconhecida; 

Z  —setadase B-l= 0; senão é ressetada; 

H — desconhecida; 

P/V — desconhecida; 

N -—setada; 

C — não afetada. 
Exemplo: Se o conteúdo do registrador C é 07H, o conteúdo 
do registrador B é 10H, o conteúdo do par de registradores HL 
é 1000H e o byte 7BH está disponível no dispositivo cujo en- 
dereço é 07H. Após a execução da instrução IND o endereço 
de memória 1000H irá conter 7BH, o par de registradores HL 
irá conter OFFFH e o conteúdo do registrador B será OFH. 
6 — Input, Decrementa e Repete 
Formato: INDR 
Operação: O byte contido na porta cujo endereço se encontra 
no registrador C é transferido para o endereço de memória 
apontado pelo par de registradores HL. HL e o registrador B 
são decrementados. Esta operação se repete até que o conteú- 
do do registrador B seja 0. 
Código Objeto: 


INDR 


Descrição: O registrador €C contém o endereço da porta de en- 
trada. O dado existente na porta é transferido para o endereço 
de memória apontado pelo par de registradores HL. O registra- 
dor Be o par de registradores HL são decrementados. A instru- | 
ção termina quando o conteúdo do registrador B é O. 
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CURSO DE ASSEMBLER — XIX 


(HL) + 


(c) 
B + B-1 


HL-1 





BL. + 


Instrução : INDR 
Ciclos de máquina (M): 4 (se B= 0); 5 (se B<> 0) 
States (T): se B=0: 16 (4,5,3,4) 
se B<>x0:21 (4,5,3,4,5) 

Flags afetadas:S desconhecida; 

Z —setada; 

H — desconhecida; 

P/V — desconhecida; 

N —setada; 

C —não afetada. 
Exemplo: Se o conteúdo do registrador C é 07H, o conteú- 
do do registrador B é 03H e o conteúdo do par de registrado- 
res HL é 1000H. Com isso, a seguinte sequência de bytes está 
disponível no dispositivo cujo endereço é 07H: 

51H 


A9H 

03H 
Portanto, após a execução da instrução INDR, o conteúdo do 
par de registradores HL será OFFDH,o registrador B irá conter 
O e| as  posições'de memória a seguir terão estes dados: 

OFFEH 03H 

OFFFH A9H 

1000H 51H 
7 — Output para Acumulador 
Formato: OUT (n), A 
Operação: O byte contido no Acumulador é transferido para a 
porta n 
Código Objeto: 


OUT (n),A 


Descrição: O número da porta é especificado no operando n e 
o dado existente no Acumulador é transferido para a porta n. 
Instrução : OUT (n), A 

Ciclos de máquina (M): 3 

States (T): 11 (4,3,4) 

Flags afetadas: Nenhuma 

Exemplo: Se o conteúdo do Acumulador é 23H, após a execu- 
ção da instrução OUT 01H, A, o conteúdo do dispositivo cujo 
endereço é 01H será 23H. 

8 — Output para Registrador 

“Formato: OUT (C), r 
Operação: O byte contido no registrador r é transferido para o 
dispositivo cujo endereço se encontra no registrador €. 

Código Objeto: 


OUT (C),r 


onde rrr pode assumir os valores que estão na figura 1. 
Descrição: O registrador € contém o número da porta de saída. 
O byte contido no registrador r é transferido para o dispositivo 
cujo endereço se encontra no registrador €. 

Instrução: OUT (C), r 

Ciclos de máquina (M): 3 

States (T):12 (44,4) 

Flags afetadas: Nenhuma 


so 


Exemplo: Se o conteúdo do registrador C é 01H e o conteúdo 
do registrador D é SAH, após a execução da instrução OUT 
(C), D o byte SAH estará presente no dispositivo cujo ende- 
reço é 01H. 

9 — Output e Incrementa 

Formato: OUTI 

Operação: O byte contido no endereço de memória apontado 
pelo par de registradores HL é transferido para o dispositivo de 
saída cujo endereço se encontra no registrador C. HL é incre- 
mentado e B é decrementado. 

Código Objeto: 


OUTI 


1071000711 


Descrição: O registrador C contém o endereço da porta de saí- 
da. O byte existente no endereço de memória apontado pelo 
par de registradores HL é transferido para o dispositivo de saí- 
da cujo endereço se encontra no registrador €C. O registrador B 
é decrementado e o par de registradores HL é incrementado. 





Instrução : OUTI 
Ciclos de máquina (M): 4 
States (T): 16 (4,5,3,4) 
Flags afetadas:S desconhecida; 

Z —setada se B-1= 0; senão é ressetada; 

H — desconhecida; 

P/V — desconhecida; 

N -—setada; 

C — não afetada. 
Exemplo: Se o conteúdo do registrador € é 07H o conteúdo 
do registrador B é 10H, o conteúdo do par de registradores HL 
é 1000H e o conteúdo da posição 1000H de memória é 59H. 
Após a execução da instrução OUTI o conteúdo do registrador 
B será OFH, o par de registradores HL irá conter 1001H e o 
byte 59H estará presente no dispositivo de saída cujo endereço 
é 07H. 
10 — Output, Incrementa e Repete 
Formato: OTIR 
Operação: O byte contido no endereço de memória apontado 
pelo par de registradores HL é transferido para o dispositivo 
de saída cujo endereço se encontra no registrador C. HL é in- 
crementado e B é decrementado. Esta operação se repete até 
q o conteúdo do registrador seja 0. 

digo Objeto: 


OTIR 


Descrição: O registrador C contém o endereço da porta de saí- 

da. O byte existente no endereço de memória apontado pelo 

par de registradores HL é transferido para o dispositivo de saí- 

da cujo endereço se encontra no registrador C. Finalmente, o 

registrador B é decrementado e o par de registradores HL é in- 

anaciao A instrução termina quando o conteúdo do regis- 
or A 
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(Cc) =< 


(HL) 
B -< B-1 


HL << HL+41 





Instrução: OTIR 
Ciclos de máquina (M): 4 (se b= 0); (se B<> 0) 
States (T):se B=0:16(4,5,3,4) 
se B<>0:21(4,5,3,4,5) 
Flags afetadas:S ' — desconhecida; 
Z —setada; — setada; 
H —desconhecida; C  — não afetada. 

Exemplo: Se o conteúdo do registrador € é 07H o conteúdo 
registrador B é 03H e o conteúdo do par de registradores HL é 
1000H. As posições de memória a seguir conterão estes bytes: 

1000H 51H 

1001H A9H 

1002H 03H 
Portanto, após a execução da instrução OTIR, o conteúdo do 
par de registradores HL será 1003H e o registrador B irá conter 
0. O conjunto de bytes enviados para o dispositivo de saída cu- 
jo endereço é 07H são os seguintes: 

51H 

A9H 

03H 
11 — Output e Decrementa 
Formato: OUTD 
Operação: O byte contido no endereço de memória apontado 
pelo par de registradores HL é transferido para o dispositivo de 
saída cujo endereço se encontra no registrador C. Tanto HL 
quanto o registrador B são decrementados. 
Código Objeto: 


P/V — desconhecida; 
N 


OUTD 


Descrição: O registrador C contém o endereço da porta de saí- 
da. O byte existente no endereço de memória apontado pelo 
par de registradores HL é transferido para o dispositivo de saí- 
da cujo endereço está contido no registrador C. O registrador 
B e o par de registradores HL são decrementados. 


(Cc) + 


(HL) 
B + B-1 


HL +< HL-1 





Instrução: OUTD 
Ciclos de máquina (M): 4 
States (T): 16 (4,5,3,4) 
Flags afetadas:S  -— desconhecida; 

Z —setadase B-1= 0; senão é ressetada; 

H — desconhecida; 

P/V — desconhecida; 

N —setada; 

C — não afetada. 
Exemplo: Se o conteúdo do registrador €C é 07H, o conteúdo 
do registrador B é 10H, o conteúdo do par de registradores 
HL é 1000H e o conteúdo da posição de memória 1000H é 
59H. ap a execução da instrução OUTD o par de registra- 
dores irá conter OFFFH e o conteúdo do registrador B 
será OFH. O byte 59H foi enviado para o dispositivo de saída 
cujo endereço é 07H. 
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12 — Output, Decrementa e Repete 

Formato: OTDR 

Operação: O byte contido na posição de memória apontada 
pelo par de registradores HL é transferido para o dispositivo 
de saída cujo endereço se encontra no registrador €C. HL e o 
registrador B são decrementados. Esta operação se repete 
até que o conteúdo do registrador B seja O. 

Código Objeto: 


OTDR 


Descrição : O registrador C contém o endereço da porta de en- 
trada. O byte existente no endereço de memória apontado pe- 
lo par de registradores HL é transferido para o dispositivo de 
saída cujo endereço se encontra no registrador C. O registrador 
Be o par de registradores HL são decrementados. A instrução 
termina quando o conteúdo do registrador B é 0. 





Instrução: OTDR 
Ciclos de máquina (M): 4 (se B=0);5 (se B<>0) 
States (T): se B= 0:16 (4,5,3,4) 
se B<>0:21 (4,5,3,4,5) 
Flags afetadas: S desconhecida; 
Z —setada; 
H — desconhecida; 
P/V — desconhecida; 
N -—setada; 
C —não afetada. 
Exemplo: Se o conteúdo do registrador € é 07H, o conteúdo 
do registrador B é 03H, o conteúdo do par de registradores 
HL é 1000H e o conteúdo das posições de memória são as se- 
guintes: 
OFFEH 51H 
OFFFH A9H 
1000H 03H 
Portanto, após a execução da instrução OTDR, o conteúdo do 
par de registradores HL será OFFDH e o registrador B-irá con- 
ter O. Os bytes que foram enviados para o dispositivo de saída 
cujo endereço é 07H E os seguintes: 
03 


A9H 
51H 
Com as instruções q 
Com as instruções que abordamos nesta lição completamos 
a descrição do set de instruções do microprocessador Z80 e en- 
cerramos o nosso Curso de Assembler. Durante 19 meses esti- 
vemos juntos e agora você já possui as informações necessárias 
para elaborar es! de ste programas. Se você não souber por 
onde começar, ise os programas que são normalmente pu- 
blicados em revistas especializadas e aproveite para estudar a 
estrutura de programação feita por quem tem mais experiên- 
cia. Vá em frente e boa sorte! E 





Amaury Correa de Almeida Moraes Junior é formado pelo curso de 
Análise de Sistemas da FASP, tendo feito diversos cursos de aperfeiços- 
mento nas áreas de Eletrônica Digital e Microprocessadores, e atualmen- 
te trabalha na área de microcomputadores para o Citybank. 





Micro-Master MK-1, da Rifran: 


computador educacional 
para estudantes de eletrônica 


m sistema de baixo 
custo voltado para 
estudo, ensino e 


desenvolvimento de 
microprocessadores. Deste 
modo, o Micro-Master MK-1 é 
definido por seu fabricante, 
a Rifran Eletrônica, que 
lançou o produto em outubro 
do ano passado, durante a II 
Feira Internacional de 
Informática, 
Baseado no Z80, da Zilog, 
com 158 instruções e todos os 
sinais desse microprocessador 
acessíveis num conector de 40 
pinos, o MK-1 pode ser usado 
como protótipo para 
desenvolvimento de software e 
hardware em aplicações 
específicas com o uso da 
linguagem Assembler do Z80, 
8080 e 8085. Uma aplicação a 
nível industrial seria de 
sistemas de controle de 
processos, como, por exemplo, 
o desenvolvimento de um 
programa que desligasse 
máquinas que atingissem uma 
determinada temperatura. Para 
o aprendizado, ele auxilia na 
feitura de rotinas operacionais, 
como cálculos, e é excelente 
para o uso da linguagem 
Assembler no estágio de 
cálculo, Sort e organização de 
sistemas. 
O MK-1, que mede 20x25,5x 
4,5 cm, possui 2 Kb de 
memória RAM e a mesma 
quantidade de ROM; ambas 
podem ser expandidas 
respectivamente para 4 e 8 Kb. 
O teclado, de 36 teclas com 
feedback táctil, incluindo 19 
teclas de funções poderosas do 
monitor, não possui a 
facilidade alfanumérica dos 
micros tradicionais. O display 
LED 0,56”, por sua vez, 
conta com recursos 
alfanuméricos, mas apresenta 
apenas seis dígitos, o que 
muitas vezes faz com que as 
informações sejam pouco 
definidas. 
O computador educacional da 
Rifran conta ainda com 
interface para gravador cassete 
com velocidade de transmissão 
de 165 cps, soquetes para 
circuitos opcionais como PIO 
E CTC e auto-falante 
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O MK-1 permite o desenvolvimento de hardware 
e software para aplicações especificas, inclusive 
a nível de controle de processos. 


embutido para efeitos sonoros. 


Sua fonte de alimentação é 
100/220 VAC, 50/60 Hz — 9 
VDC/600 ma. 

O Micro-Master MK-1 tem 
uma boa configuração de 
hardware, inclusive de 
barramento com todos os 
sinais, o que facilita a criação 
de outros hardware a partir do 
existente. No entanto, todo o 
hardware, a nível de acessório, 
está dentro da máquina, não 
havendo opção do fabricante 
de interface para vídeo ou 
comunicação de dados. 


SOFTWARE 


O Micro-Master executa 
programas na linguagem de 


máquina dos micro- 
processadores Z80, 8080 e 
8085. Seu monitor traz alguns 
recursos especiais, tais como 
es e colocação de 

break points (paradas), 
execução de programa passo a 
passo, inserção e extração de 
linhas de programa com 
recolocação automática dos 
endereços, cálculo de 
endereços relativos para as 
instruções JR e DJNZ e 
transferência de blocos de 
dados na memória RAM. 
Convém ressaltar, portanto, 
que um computador do tipo 
do MK-—1 não pode ser 
utilizado como um micro 
tradicional. Ele não dispõe, 
por exemplo, de um 
disassemblador nem de um 


Foto cedida pela Rifran 


montador Assembler, embora 
esses implementos não alterem 
em muito seu preço de venda. 
Um assemblador permitiria ao 
usuário montar um programa 
Assembler no MK-1 da mesma 
forma como num micro da 
linha TRS-80. Esse software, 
porém, pode ser desenvolvido, 
embora no caso o usuário deva 
ser um especialista. 

A máquina vem acompanhada 
de um manual com exemplos 
de programação. O manual, no 
entanto, peca a nível de 
apresentação gráfica e conteúdo. 
Os exemplos de utilização do 
equipamento não são em 
numero suficiente e poderiam 
chegar a um nível maior de 
dificuldade. Além disso, faltam 
explicações mais detalhadas 
sobre a operação do 
equipamento e a parte final do 
manual não vem traduzida, o 
que pode causar interpretações 
errôngas para quem não domine 
o Inglês. 

Os programas de demonstração 
que acompanham o 
equipamento são bastante 
simples. Há o toque de telefone, 
letreiro dinâmico, cronômetro, 
flash, sirene policial, música, 
relógio, órgão (com notas de 0 a 
F)e a palavra Brasil piscando no 
visor. 

Como o fabricante nos enviou o 
equipamento apenas com a 
memória EPROÓM 2716 para 

2 Kb e com os programas de 
demonstração, não puderam ser 
analisados alguns acessórios 
opcionais, como o intérprete de 
Tiny BASIC em 2 Kb de ROM; 
o GEP, programador de EPROM 
para memórias de 1,2 e 4 Kb;e 
o MSS, um sintetizador de voz, 
que parecem ser os acessórios 
mais interessantes. Os outros, 

já disponíveis no mercado 
segundo o fabricante, são 
EPROM 2732 virgem para 4 KB; 
RAM 6116 de 2 Kb; Z80 PIO 
para interface com periféricos 
(16 linhas); Z80 CTC para 
realizar contadores e 
temporizadores; e MSG, um 
gerador de efeitos sonoros mm 
especiais. 


Texto: Lúcio Santos 
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CH 47.5. Servicos TD 


A PMPONEN TC, 
ELETRÔNICA LTDA 


SEU MICRO EM 
BOA COMPANHIA 
ASSISTÊNCIA TÉCNICA 
AUTORIZADA: 


“PROLÓGICA 
| UNITRON 
DIGITUS 


Edi 


(031) 201-5156 
Rua Espírito Santo, 1868 
Belo Horizonte — M.G. 


PHASER 


Uma Empresa a 
Serviço da 
Micro Eletrônica 


Assistência 


Técnica 
Autorizada 


PROLÓGICA 
UNITRON 
ELEBRA 


Rua St.º Rita Durão, 384 
Funcionários 

Tel.: (031) 2925-4144 

Belo Horizonte — MG. 
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DPEETITIS 


CENTRO DE PESQUISAS, 
ESTUDOS E ENSINO 
TECNOLÓGICO E DE 
INFORMÁTICA DE MINAS 
GERAIS LTDA. 


inscrições para 

o curso de Análises 
de Sistema, com 
estágio garantido 
para todos os alunos 
em nosso CPD 


Rua Tamoios nº 462/911 
Rua da Bahia nº 504 - 4º andar 


B. Horizonte - M. Gerais 


MICROCITY 


compuladores e sistemas 


MICROS, PERIFÉRICOS 
E SUPRIMENTOS 


A loja onde você 
tem assistência na 
compra, na aplicação ' 
e manutenção de seu 


equipamento 
LITERATURA E CURSOS 
ESPECIALIZADOS 


CONSULTE-NOS 
SEM RECEIO 


R. Paraíba, 1256 Savassi 
Tel.: (031) 227-4291 
Belo Horizonte — M.G. 









Já estão abertas as 





COMPUTADORES 
E PERIFÉRICOS 


UNITRON 
MICROCRAFT 


VENDAS 


LEASING 


PROGRAMAS 
CURSOS 


ASSISTÊNCIA 
TÉCNICA 


Av. Mal. Câmara, 271 s/loja 101 
Tel: (021) 262-3289 — R.). 





“MIKROS 
AGORA NO 
LEBLON! 


Av. Ataulfo de Paiva 566 - Loja 211 
Rio de Janeiro — Tel.: 239-2798 
APROVEITE OS PREÇOS 
“INCRIVEIS" DA “MIKROS” 
DO LEBLON, APOS SUA 
EPOCA DE INAUGURAÇÃO. 

e MICROCOMPUTADORES 

Linhas Sinclar, TRS-80 Appl er 

e PERIFERICOS 

Impressoras, vídeos, interfaces, etc 

e SOFTWARE NAC. E IMPORT. 

Mais de 700 programas e jogos 

de todos os upos 

e CURSOS DE BASIC 

e SUPRIMENTOS 

Formulários continuos, fitas, disketes, etc 

PROFISSIONAIS 
ALTAMENTE ESPECIALIZADOS 

PARA ATENDÊ-LO 


Pare de Sonhar... 


Os leitores de MICRO SISTEMAS não têm bola 
de cristal para adivinhar a cor de seus produtos. 


Av. Pres. Wilson n.º 165 — gr. 1.210/16 — Tel: (021) 262- 5259/262-6437 
CEP: 20.030 — Rio de Janeiro — RJ. 


Rua Oliveira Dias n.º 153 — Jd. Paulista — Tel: (011) 583- 3800/8537758 
CEP: 01433 — São Paulo — SP. 





PARA 
PROBLEMAS 
TECNICOS 
USE 

A CABEÇA 


PARA PROBLEMAS COM MATERIAL DE 
DESENHO - PINTURA - ENGENHARIA 
PAPELARIA - ESCRITÓRIO - MAQUINAS P/ 
ESCRITÓRIO E SUPRIMENTOS EM GERAL 
O BEL-BAZAR 

ELETRÔNICO 


onde você AINDA encontra prego 
e qualidade de ANTIGAMENTE! 


BO 


AV. ALMIRANTE BARROSO, 81 - LJ “C” 
TEL.: 262-9229 - 262-9088 - 240-8410 - 221-8282 
RIO DE JANEIRO - CASTELO 


ROBOTIC 


— MICROCOMPUTADORES 
DE TODAS 
AS MARCAS 


— SUPRIMENTOS 


— PEÇAS E PARTES PARA 
MICROCOMPUTADORES 


JOGOS ELETRÔNICOS 


RUA BARATA RIBEIRO, 370 

— Loja 105 APART HOTEL — 

COPACABANA — RIO — AJ 
TEL.. (021) 257-6396 









ANUNCIE EM MICRO SISTEMAS, 
E TENHA UM MACRO RETORNO. 
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circuitos 
DIGITAIS 


HERBERT TAUB E 


microprocessadores 





TAUB, H., Circuitos Digitais e 
Microprocessadores, Editora 
McGraw-Hill. 


BB Este livro destina-se às áreas de 
projetos lógicos e microprocessa- 
dores, cobrindo todos os princí- 
pios lógicos de sistemas digitais e 
do projeto lógico. Na parte de mi- 
croprocessadores, o estudo con- 
centra-se no modelo 8080, porém 
são fornecidos dados detalhados 
que podem ser aplicados em ou- 
tras unidades. 

Mais de 300 problemas cuida- 
dosamente elaborados realçam a 
utilidade prática deste texto, que 
traz também explicações simples 
e claras sobre flip-flops (capítulo 
4), memórias (capítulo 6) e um 
tratamento completo sobre con- 
troladores, permitindo uma fácil 
transição de projetos orientados 
de hardware para projetos orien- 
tados de software. 


o 


MITCHELL WAITE “MICHAEL PARDEE 


a + 


— 


EDITORA CAMPUS 


WAITE, M; PARDEE, M, O 
Seu Computador Pessoal, 
Editora Campus. 


EB Este livro proporciona ao ini- 
ciante no campo dos microcompu- 
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tadores pessoais o conhecimento e 
confiança necessários para tirar o 
máximo proveito deste poderoso 
instrumento de trabalho. 

Através de um texto simples, 
numa linguagem bastante acessí- 
vel, ele explica o que significa 
possuir um microcomputador — o 
que se pode fazer com ele, de ma- 
neira isto vem facilitar a vida do 
usuário e como este deve proceder 
ao comprar um, avaliando-o para 
seus próprios usos — apresentando 
estes equipamentos como máqui- 
nas simples e fáceis de controlar 
que na verdade são. 

De especial interesse é o capí- 
tulo que fornece uma análise com- 
parativa dos 30 mais populares 
micros nacionais e estrangeiros de 
uso pessoal ou para a pequena 
empresa, considerando custos, 
capacidade, modelos etc. 





MIRSHAWKA, V., 
TK Divertindo; TK Lembrando; 
TK Calculando, Livraria Nobel. 





EB TK Divertindo, TK Calculan- 
do e TK Lembrando são livros 
dedicados especialmente aos mi- 
crocomputadores baseados na ló- 
gica Sinclair. Dirigindo-se aos ini- 
ciantes em computação, em cada 
um dos volumes o leitor encontra 
as orientações mínimas para a uti- 
lização do equipamento: como 
manipular corretamente o teclado 
para digitar programas; relação 
das palavras-chaves que podem ser 
acessadas com uma única tecla; 
primeiros socorros, indicando a 
solução para alguns dos problemas 
mais comuns encontrados pelos 
usuários durante as operações 
com a máquina, e como armaze- 
nar um programa no gravador e 
recuperá-lo posteriormente. 

A coleção completa mostrará 
ao leitor a digitação etapa por 
etapa, linha por linha de um pro- 
grama, orientando para os funda- 
mentais truques de programação. 
Com base nos 100 programas indi- 
cados, O leitor poderá programar 
seus próprios jogos ou então resol- 
ver seus problemas de Matemáti- 
ca, Física, Química, Finanças ou 
Engenharia. 
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FOX 


coisa que você 


Nunca 
compre uma 












não val usar. 


Leve logo um microcomputador 
TK 85, porque ele é realmente fácil de 
usar: já vem com manual de instruções, 
que ensina,em português claro, 
a linguagem Basic. 
À partir dai, você pode preparar 
seus próprios programas ou utilizar as 
centenas de programas que já existem 
no mercado, para cadastrar clientes, controlar 
estoques, manter em ordem o orçamento 
| familiar, fiscalizar a conta bancária, estudar 
matemática, estatística, jogar xadrez, guerra 
nas estrelas, e o que mais você puder imaginar. 
E além disso tudo, o TK 85 tem 
também o preço mais acessível do mercado. 
Peça uma demonstração. 


TK 85,0 micro que você pode usar. 
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O CURSOS U CC CURSOS 


e A PRO-INFORMÁTICA SIS- 
TEMAS CONSULTORIA E TREl|- 
NAMENTO oferece regularmente 
cursos de Cobol, Basic, Basic 
Avançado, e Assembly com tur- 
mas reduzidas. Além das aulas 
práticas, os alunos dispõem dos 
computadores com assistência de 
monitores em horários extra-aula. 
Av. do Contorno, 6608, Savassi. 
Tel.: (031) 225-7666 — Belo Ho- 
rizonte. 


e A PRODATEL Processamento 
de Dados de Telecomunicações, 
abre inscrições para os cursos: 
Programação em Linguagem: Co- 
bol, PL-1, Mumps e Basic, Análi- 
se de Sistemas, Teleprocessamen- 
to, Banco de Dados, Automação 
de Escritório, Digitação. Aulas 
práticas em computadores IBM e 
Digitus. Informações Rua Curiti- 
ba, 689/70 and. Centro e Savassi. 
Tel.: 201-9323, BH/MG. 


e A Mikro Informática continua 
oferecendo com sucesso os seguin- 
tes cursos: Informática p/jovens, 
Operação e Programação de mi- 
crocomputadores, Linguagem Ba- 
sic e Cobol. Inscrições e informa- 
ções à Av, Af. Pena, 952/522. 
Tel.: 222-3035 BH/MG. 





plãe 
e A Lourdes Informática, inicia- 


rá novas turmas de Basic | e Ba- 
sic Avançado, a partir de 06.08.84, 


de manhã e a noite. Inf. e insc. 
Tamoios, 530 — Fone: (031) 201- 
7869 — Belo Horizonte/MG. 


SOFTWARE 


e Vendo fita c/10 prog. entre os 
100 que possuo, por apenas 15 
mil. Escreva p/Wagner Tranin Pç. 
Afonso Pena, 77/603 — 12200 — 
S. J. dos Campos — SP. Tel.: 21- 
6753. 


e Vendo interpretador Logo pa- 
ra TK-2000 ou Apple, ótimos re- 
cursos gráficos, totalmente em 
português e gravado em fita, in- 
formações com Walmir Scaravelli, 
R. Adelino X. Silveira, 96 — Itu — 
SP: CEP 13300, Fone (011) 
482-1704. 


e Compilador Basic p/CP500 e 
OQR TRS — seu progr. 20 vezes + 
veloz acompanha disco ZBasic + 
manual 16 ORTN — cheque no- 
minal à Compuserv — Inf. Ass. 
Ltda. R. Amador Bueno, 155, 
Santos, SP, CEP: 11100. 


= financio p 0fop 
ficados ===" 


e Vendo ft. c/25 jogos 16K, 2 
em 3D p/TK, CP 200 e Sinclair 
Cr$ 15 mil. Sergio. Cx. P. 529 — 
09500 — S. C. Sul-SP. 


e Troca de programas (TRS-80) 
— O grupo de usuários brasileiros 
de TRS-80 dispõe de mais de 600 
programas para serem trocados. 
Correspondência para Caixa Pos- 
tal 10376 — CEP 90000, Porto 
Alegre (RS). 


e CP500 — CP300 — TRS80 — 
DGT100/1000. Aplicativos, utili- 
tários, jogos, compiladores — mais 
de 1000 programas — desenvolve- 


mos sistemas. Tel.: 5571-0844 — 
RJ, (noite) Marcos. 
e Soft-TRS80 sist. comerciais 


tratar c/Prodadi — SEPN 509, Ed. 
Isis — loja 25, CEP: 70.750, Brasí- 
lia DF. Fone (061) 2744779. 


e Vendo fita c/10 programas p/ 
Cr$ 17.000,00, entre eles sinte- 
tizador de voz, zaxxon tridimen- 
cional e vários importados, para 
microcomputador TK-85. Escreva 
para João B. Castro — Rua Licinio 
Leite Machado, 59 — Bairro San- 


tana — São José dos Campos, 
CEP: 12200, ou fone (0123) 
22-0420. 


erro 





— EQUIPAMENTOS — 


e Na Mikro você encontra CP- 
500, TK 2000, CP300, impresso- 
ras, drivers. Av. Af. Pena, 952/ 
522 — Tel.: 222-3035 BH/MG. 


e CP200 vendo praticamente 
novo tratar p/tel.: 237-6248 sec. 
eletrônica Fernando — Rio de 
Janeiro. 


CLUBES 


e O melhor clube do Brasil para 
CP-200, TK-83, TK-85, R-470, 
CP-300, CP-500, DTG-100 e com- 
tíveis. Torne-se amigo do Compu- 
club inscrição grátis, e você asse- 
gura o imediato recebimento de 2 
fitas com 6 excelentes programas 
grátis, de procedência estrangeira. 
E mais ainda, você passará a rece- 
ber, regular e gratuitamente, bole- 
tins do Compuclub, com jogos e 
dicas especiais. Escreva-nos indi- 
cando o equipamento que possui 
e anexe cheque no valor de 
Cr$ 6.500,00, exclusivamente pa- 
ra cobrir as despesas de porte e 
embalagem do material a ser en- 
viado. Compuclub, Caixa Postal 
1795, 30000 — Belo Horizonte, 
MG. 


E NA PÁGINA CORREÇÃO 


16, no programa Lditor Assem- 
bler para a linha Sinclair, segunda Dm quê 
coluna, segundo parágrafo: 


novamente; 


4 — escreva o programa em BASIC (listagem 1); 


2 — execute o comando POKE 16389, 115 e logo após digite RUN; 
. introduza o Editor Assembler (listagem 2). No final da digitação dé o comando NEW 


QUEM MANDA 


NESTA PÁGINA SOU EU! 


Apoiado! Equipamentos, Software, Cursos, Clubes e Diversos: 
você é quem decide o que, quando e como anunciar nos 
Classificados MS. Quanto você terá que pagar? Isso também é 


decisão sua. Preste atenção: 


e cada linha de texto (30 toques, incluindo os espaços em br2nco) 


custa Cr$ 2.000,00; 


e linhas incompletas serão cobradas como inteiras; 


c/ioim 


e o próprio anunciante deve checar o valor de seu anúncio com o 


número de linhas que ele contiver; 


e o anúncio deve vir acompanhado de um cheque nominal à ATI 


Editora Ltda; 


Os textos devem ser datilografados ou escritos em letra de fôrma, 
obedecendo as 30 batidas por linha. Veja um exemplo: 


PL PP E 


fejajs|sjejtle|» T 





Petefal 


Maiores informações pelos telefones: (021) 262-5259 — RJ ou (011) 853-7758 — SP. 
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O pequeno 
grande micro. 


Agora, na hora de escolher entre um 
microcomputador pessoal simples, de fácil 
manejo e um sofisticado microcomputador 
profissional, você pode ficar com os dois. 

Porque chegou o novo CP 300 Prológica. 

O novo CP 300 tem preço de 
microcomputador pequeno. Mas memória 
de microcomputador grande. 

Ele já nasceu com 64 


“3 kbytes de memória 
É interna com 
possibilidade de 
expansão de memó- 
Pode ser ria externa para até 
acoplado a uma quase 1 megabyte. 
impressora. 


E tem um teclado profissional, 
que dá ao CP 300 uma versatilidade incrível. 
Ele pode ser utilizado com programas de 

fita cassete, da mesma maneira que com 


programas em disco. HH ||| 4 | 


O único na sua faixa que já 
nasce com 64 kbytes de memória. 








“ 








Compatível com 
programas em fita 
cassete ou em disco. 






ve 


Pode ser ligado ao seu“áparelho de TV, da 
mesma forma que no terminal de vídeo 
de uma grande empresa. 
Com o CP 300 você pode 
fazer conexões telefônicas 
para coleta de dados, 
se utilizar 
de uma 
impressora 
g ainda dispor de todos 
Os programas existentes 
para o CP 500 ou 0 


ou a um sofisticado 


Permite 
conexão TAS. 80) americano. E o que é melhor: 


telefônica. É 
você estara apto d ODpETdI qualquer 


outro sistema de microcomputador. 

Nenhum outro microcomputador pessoal 
na sua faixa tem tantas possibilidades de 
expansão ou desempenho igual. 

CP 300 Prológica 
Os outros não 
fazem o que ele faz, 
pelo preço que 

ele cobra. 





ME microcomputadores 


4 
4. 


Pode ser ligado 
a um televisor comum 


terminal de vídeo. 


SER PROLOGICA 





DEFESA DOS 





VA ES NACIONAIS 


Solicite 


demonstraçã 
nos principai: 
magazines. 





Interface de impressora incorpora pres A. RE 
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+ (Preço sujeito a alteração). 
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Microdigital apresenta 
o novo TK 2000 color 


Que tal um micro de alta performance, que traz as principais características 
dos equipamentos mais sofisticados e que não exige de você um grande 
investimento inicial? E que tal um micro que cresce de acordo com as suas 

necessidades? São estas as vantagens que vão fazer do novíssimo 
TK 2000 Color um dos maiores sucessos no setor. 

Veja: ele tem 64K de memória RAM e 16K de memória ROM, teclado profissional 
tipo máquina de escrever, recebe diskette e impressora com interface já contido, 
trabalha em cores, oferece alta resolução gráfica e som. 

Peça uma demonstração. Nunca tanto foi lhe oferecido por tão pouco. 
Grande quantidade de software disponível (entre eles: diversos aplicativos 
comerciais e jogos a cores de alta resolução gráfica). 


- Eletemtudo que um 
micro deve ter Menos o preço. 


AUICRODIGITAL 


—  Coixa Postal 54088 - CEP 01000 - São Paulo - SP - Telex Nº (011) 37.008 - Mide BR 
A venda nas boas casas do ramo, lojas especializadas de fotovídeo-som e grandes magazines. 
Se você não encontrar este equipamento na sua cidade ligue para (011) 800-255-8583. 











